list - 在 Mathematica 中显示重复项

Question

在 Mathematica 中，我有一个列表:

x = {1,2,3,3,4,5,5,6}

我将如何列出重复项？像:

{3,5}

我一直在看 Lists as Sets ，如果列表中有类似 Except[] 的东西，那么我可以这样做:

unique = Union[x]
duplicates = MyExcept[x,unique]

(当然，如果 x 有两个以上的重复项 - 例如，{1, 2,2,2 ,3,4,4}，则输出将为 {2,2,4} ，但额外的 Union[] 会解决这个问题。)

但是没有类似的东西(如果我确实理解那里的所有功能)。

那么，该怎么做呢？

Answer 1

有很多方法可以像这样进行列表提取；这是我想到的第一件事:

部分[选择[Tally@x, 部分[#, 2] > 1 &], 全部, 1]

或者，更易于阅读:

理货@x
选择[%, Part[#, 2] > 1 &]
部分[%, 全部, 1]

分别给出

{{1, 1}, {2, 1}, {3, 2}, {4, 1}, {5, 2}, {6, 1}}
{{3, 2}, {5, 2}}
{3, 5}

或许你能想到一种更高效(在时间或代码空间上)的方式 :)
顺便说一句，如果列表未排序，那么您需要运行 Sort在这将起作用之前首先在它上面。