如何在元組列表中查找重複項？

什麼是過濾元組列表並返回fst和snd值相同的最好方法？如何在元組列表中查找重複項？

[(2,1),(2,2),(3,1),(10,9),(10,10)]

將返回(2,2)和(10,10)。

來源

2014-12-18 user4357505

我喜歡這個問題，因爲它押韻。 – ziggystar

@ziggystar：在某些口音中，也許... –

最簡單的方法是使用filter和lambda：filter (\ (a, b) -> a == b) ls。

你也可以很可愛，並使用uncurry，它將兩個參數的正常函數轉換爲一個元組，給你filter (uncurry (==))。請記住，(==)只是Eq a => a -> a -> Bool類型的函數，因此uncurry (==)是Eq a => (a, a) -> Bool類型的函數，這正是您要查找的內容。

來源

2014-12-18 21:11:28

非常好，謝謝 – user4357505

@cockmagic：如果這個答案解決了你的問題，你可以通過在投票箭頭下面的複選標記來接受它，這將標記爲已解決的問題。 –

一個警告字，'let filterEquals = filter（uncurry（==））'默認爲類型'[（（），（））] - > [（（），（））]''這是不兼容的列表，所以如果還沒有的話，必須提供類型簽名。 –

你可以通過遍歷的做到這一點：

doubles ls = [(x,y) | (x,y) <- ls, x==y]

來源

2014-12-18 23:10:34

如何在元組列表中查找重複項？

回答

相關問題