函数：求多个数组的交集

a=#(1,2,3,4)
b=#(1,2,4,5,6,3)
c=#(9,2,3,7,5,6,4)
d=#(1,2,3,4,8)

fn getsame arr =
(    ref=arr[1]
    for i=1 to arr.count-1 do(
        ref=for j in ref where finditem arr[i+1] j !=0 collect j        
        )
    return ref
)
--clearlistener()
getsame #(a,b,c,d)