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

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

1 个答案: