函数：求多个数组的交集 

 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)

 

posted @ 2022-08-19 01:26  站在雨中  阅读(67)  评论(0)    收藏  举报