函数：求多个数组的相同元素

 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 ref
12 )
13 --clearlistener()
14 getsame #(a,b,c,d)

标签：11,arr,函数,getsame,元素,finditem,数组,ref,clearlistener
来源： https://www.cnblogs.com/looook/p/16600664.html