Question

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

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]
```

非常感谢你的帮助。

Answer 1

您可以使用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]

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

1 个答案: