NetLogo从未排序列表移除指定元素遇问题：代码返回空列表

首先，给你一个最简洁且不易出错的解决方案：用NetLogo内置的filter函数来实现需求，一行代码就能搞定：

let list1 [8 6 9 7 1 3]
let list2 [5 9 8]
let result filter [not member? ? list2] list1
print result ; 输出 [6 7 1 3]

为什么这个方法好用？ #

filter函数会遍历list1中的每一个元素，只保留满足条件的元素——这里的条件是元素不在list2中（not member? ? list2），完美匹配你的需求。而且它不会修改原列表，直接生成新的结果列表，避免了迭代时修改原列表导致的索引混乱问题。

你的代码为什么返回空列表？ #

咱们来拆解一下你代码里的问题：

1. 变量名语法错误：NetLogo的变量名不能包含空格，你写的List 1和List 2是无效的，应该改成list1、list2这类无空格的变量名（这可能是导致代码异常的核心原因之一）。
2. 条件判断逻辑错误：position ? list1的返回值是元素的索引（数字）或者false（元素不存在时），永远不会返回true。所以你的if p = true条件永远不会触发，根本没有执行移除操作——如果你的代码返回空列表，大概率是变量名错误导致NetLogo无法正确识别列表，或者其他地方误修改了list1。
3. 迭代时修改原列表的风险：就算修正了条件，在foreach list2的过程中直接修改list1，可能会导致后续的position索引错位（比如移除一个元素后，列表长度变短，后续元素的位置会前移），虽然你的示例里不会出问题，但在复杂场景下容易出错。

如果你想修改自己的代码来实现 #

如果一定要用foreach和remove-item的方式，修正后的代码应该是这样：

let list1 [8 6 9 7 1 3]
let list2 [5 9 8]

if not empty? list2 [
  foreach list2 [
    let current-elem ?
    let elem-index position current-elem list1
    ; 判断元素确实存在于list1中（返回的是数字索引）
    if is-number? elem-index [
      set list1 remove-item elem-index list1
    ]
  ]
]

print list1 ; 输出 [6 7 1 3]

这个版本修正了变量名和条件判断，能正确实现你的需求，但还是推荐用filter的方式，更简洁可靠。

内容的提问来源于stack exchange，提问作者Mohamed B