math - 如何返回两个列表的交集，包括 Mathematica 中的重复项？

Question

如何在 Mathematica 中找到包含重复项的两个列表的交集？

所以，如果我有这个:

list1 = {1, 1, 3, 4, 5, 6, 6, 6, 7, 7, 10, 11, 11};
list2 = {1, 1, 4, 5, 5, 6, 6, 7, 7, 8, 11, 11, 13, 14};

我希望它返回这个:

IntersectionIncludingDuplicates[list1, list2] = {1, 1, 4, 5, 6, 6, 7, 7, 11, 11}

感谢所有帮助!

Answer 1

这是一种方法:

Catenate@KeyValueMap[ConstantArray]@
  MapThread[Min, KeyIntersection[Counts /@ {list1, list2}]]

分解:

• 计算每个元素在每个列表中出现的次数(Counts)
• 只保留同时出现在(KeyIntersection)中的那些元素
• 取较少的出现次数(MapThread，Min)并复制给定元素多次(ConstantArray)