在NetLogo中查找交叉点列表

我有一个n个列表的列表，希望找到它们的交集，如：

[[1 2 3 4][0 4][4 1]]
[4]

我找到了一个代码来查找两个列表的交集：

to-report intersect [a b]
   report (filter [ member? ? b ] a)
end

---

但是我不知道如何将这个概念扩展到多个列表。

哦！这是一个非常好的NetLogo未被重视功能的用例

鉴于您的

intersect

报告程序：

print reduce intersect [[1 2 3 4][0 4][4 1]]

将为您提供：

[4]

reduce

将

intersect

应用于第一个子列表和第二个子列表，然后将

intersect

应用于该子列表和第三个子列表的结果，依此类推，适用于主列表中的尽可能多的子列表