netlogo – 如何同时删除列表中的多个项目

2023年2月13日 248次阅读

如何同时删除列表中的多个项目？我有一个清单：

let list1 map [ -1 * ? ] reverse (n-values ( ( max-pxcor -  round (max-pxcor / 3) ) + 1 ) [?]) 
print list1
[-17 -16 -15 -14 -13 -12 -11 -10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0]

例如,我想删除：
– 列表中的最后4项：

[-17 -16 -15 -14 -13 -12 -11 -10 -9 -8 -7 -6 -5 -4]

>列表中的最后9项：

[-17 -16 -15 -14 -13 -12 -11 -10 -9]

>列表中的最后13项：

[-17 -16 -15 -14 -13]

非常感谢您的帮助.

最佳答案 您可以使用
sublist从列表中保留所需内容.

例如,删除列表中的最后4项：sublist list1 0(length list1 – 4)

您可以将其概括为一个函数：

to-report remove-last-n [ lst n ]
  report sublist lst 0 (length lst - n)
end

你可以使用它：remove-last-n list1 4

将此与不幸的名为sentence相结合,您可以删除任意子列表：

to-report remove-sublist [ lst position1 position2 ]
  report (sentence (sublist lst 0 position1) (sublist lst position2 length lst))
end

这让你做到了

observer> show remove-sublist [-17 -16 -15 -14 -13 -12 -11 -10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0] 2 13
observer: [-17 -16 -4 -3 -2 -1 0]
点赞