查找2个元素重复的列表

Question

我正在寻找一个相对有效的功能来解决以下问题：

鉴于records :: [[String]]，我想查找并返回其第一个和第二个元素相同的所有[String]。所以给出：

records = [["Z", "Jay", "$500M"],
           ["Dilla", "J", "$0"],
           ["Z", "Jay", "$600M"], -- Note the different third element
           ["McCartney", "Paul", "like $1B"],
           ["McCartney", "Paul", "like $1B"],
           ["McCartney", "Joe", "$10"]]

dupFind records应该返回

[["Z", "Jay", "$500M"],
 ["Z", "Jay", "$600M"],
 ["McCartney", "Paul", "like $5B"],
 ["McCartney", "Paul", "like $5B"]]

我在使用sort-then-iterate查找重复项的典型方法时遇到问题，因为即使列表按其第一个元素排序，其重复记录也可能不相邻。

Answer 1

为什么不按前两个元素对列表进行排序？

import Data.List(sortBy)
import Data.Ord(comparing)

sortBy (comparing (take 2))

应该做的。