list - netlogo 列出 : iterating over two lists

Question

我有两个列表，它们的长度总是相同的。第一个是二进制的，表示代理是否会在这一轮移动，第二个包含一组需要根据第一个列表做某事的代理。像这样的东西:

list1 = [0 1 1 1 0]
list2 = [turtle-1 turtle-2 turtle-55 turtle-6 turtle-8]

我的目标是创建第三个列表，其中只包含活跃的海龟。因此，该列表将包括:turtle-2 turtle-55 和 turtle-6。最好的方法是什么？

Answer 1

像这样:

map last filter [first ? = 1] (map list list1 list2)

样本运行:

observer> crt 10
observer> set list1 [0 1 1 1 0]
observer> set list2 map turtle [1 2 5 6 8]
observer> show map last filter [first ? = 1] (map list list1 list2)
observer: [(turtle 2) (turtle 5) (turtle 6)]