ICode9

1 a=#(1,2,3,4) 2 b=#(1,2,4,5,6,3) 3 c=#(9,2,3,7,5,6,4) 4 d=#(1,2,3,4,8) 5 6 fn getsame arr = 7 ( ref=arr[1] 8 for i=1 to arr.count-1 do( 9 ref=for j in ref where finditem arr[i+1] j !=0 collect j 10 ) 11 return