list - 按第一个元素对元组列表进行分组

Question

假设我有一个由 [("ab", 1), ("ab", 2), ("ac", 3)] 组成的元组列表

使用 group函数会将此列表拆分为元组列表列表，如下所示:

[
  [("ab", 1)],
  [("ab", 2)],
  [("ac", 3)]
]

您将如何对忽略其中一个索引的元组进行分组，以便根据其中一个元素对它们进行分组:

[
  [("ab", 1), ("ab", 2)],
  [("ac", 3]
]

groupBy在这种情况下需要功能吗？

Answer 1

使用Data.List groupBy功能(docs):

Prelude> import Data.List
Prelude Data.List> let xs = [("ab", 1), ("ab", 2), ("ac", 3)]
Prelude Data.List> groupBy (\a b -> fst a == fst b) xs
[[("ab",1),("ab",2)],[("ac",3)]]

或按照@dfeuer 的建议:

...
import Data.Function
groupBy ((==) `on` fst) xs