删除 Haskell 列表中的重复元组

Question

我不知道如何从元组列表中删除所有重复项 例如 [(1,2),(2,1),(5,2),(5,6)]

这里的副本是 (2,1)（与顺序无关）。我只想删除其中一个重复项，我该怎么做？

symEq :: Eq a => (a,a) -> (a,a) -> Bool
symEq (x,y) (u,v) = (x == u && y == v) || (x == v && y == u)

removeDuplTuples :: Eq a => [(a,a)] -> [(a,a)]
removeDuplTuples = nubBy symEq

这是我阅读的一些代码，但我认为它并不完全相关

Answer 1

您发布的代码完全相关，正是您想要的......

让我们一步一步来：

symEq 接受两个元组并检查第一个和最后一个元素是否相等，或者彼此对面的元素是否相等。

nubBy 只是 nub 使用自定义函数而不是 (==)。

nubBy在Data.List包里，只要在文件开头加上import Data.List就可以使用了。