从Haskell中的列表列表中删除重复项

Question

给出列表duplicates = [[1,1,1],[2],[1,1,1]]

如何删除重复项以使结果为[[2]]？

Answer 1

像这样：

Data.MultiSet> [a | (a, 1) <- toOccurList (fromList [[1,1,1],[2],[1,1,1]])]
[[2]]