用于删除具有相同元素但顺序不同的元组列表的函数

Question

说我有元组列表,如

[(1,2),(2,1),(3,5)]

我如何定义一个函数,以便删除具有相似元素但排序不同的元组？所以列表变成了

[(1,2),(3,5)]

Answer 1

nubBy与相等函数一起使用,该函数将两个具有交换或未交换的相等元素的元组进行比较.该swap功能使这更容易:

nubSwapped :: (Eq a) => [(a, a)] -> [(a, a)]
nubSwapped = nubBy $ \a b -> a == b || swap a == b