Mathematica列表对比：如何找出首列表独有的元素并实现遍历比较

如果你一定要用For循环实现需求，这里是具体的代码示例：

(* 先定义你的两个列表，替换成实际数据即可 *)
list1 = {1, 2, 3, 4, 5};
list2 = {3, 4, 6, 7};

(* 初始化空列表用来存结果 *)
result = {};

(* 遍历第一个列表的每个元素 *)
For[i = 1, i <= Length[list1], i++,
  current = list1[[i]];
  (* 判断当前元素是否不在第二个列表里 *)
  If[!MemberQ[list2, current],
    AppendTo[result, current]
  ]
]

(* 输出最终结果 *)
result

代码说明 #

• For[i=1, i<=Length[list1], i++]：从第一个元素开始，遍历list1的所有元素
• MemberQ[list2, current]：检查元素是否存在于list2，!表示取反（即元素不存在的情况）
• AppendTo[result, current]：把符合条件的元素添加到结果列表中

更高效的替代方案 #

其实Mathematica内置了直接求差集的函数Complement，一行代码就能完成需求，比For循环更符合Mathematica的函数式编程风格，效率也更高：

Complement[list1, list2]

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