按元组列表的第一个元素分组，然后将功能应用于所有分组的第二个元素[重复]

Question

这个问题已经在这里有了答案：

• 如何使用Haskell在列表中将相似项目分组？ 5个答案

我有一个清单

[(8,2),(3,2),(3,1),(10,2),(10,6)] :: [(Int,Int)]

我想得到一个元组列表，该列表按元组列表的第一个元素分组。 我也想对所有分组元组应用一个函数，例如求和。

在应用group by和函数(+)我期望得到以下结果：

[(8,2),(3,3),(10,8)] :: [(Int,Int)]

我该如何使用Haskell？

---

编辑

这与“ 如何使用Haskell将列表中的相似项目分组吗？”不完全相同。 因为我也想知道如何将函数应用于分组的元组列表中的每个第二个元素。

---

我尝试了以下方法，我认为它现在可以工作。

test :: Eq a => Tree a -> [(a,Int)]
test t = map (foldl1 sumZahlwerte) grouped
  where grouped = groupBy (\c d -> fst c == fst d) (getTuple t)

sumZahlwerte :: Eq a => (a,Int) -> (a,Int) ->  (a,Int)
sumZahlwerte (b,c) (_,e) = (b,c+e)

其中getTuple t返回[(a,Int)]列表。

反馈表示赞赏。 谢谢您的帮助！

Answer 1

这似乎是一项家庭作业/学习任务，所以我仅给出一些提示：

• 您已经将所需的最重要的功能命名为groupBy （来自Data.List ）
• 此外，你需要一些东西来组-你可以使用lambda表达式，或者小功能on由提供Data.Function模块- (==) `on` fst将在Haskell写这个的惯用方式，但对于该练习编写了一个lambda函数-进行了“比较”
• 分组后，您将拥有[[(Int,Int)]] ，并使用方便的功能map和foldr1 ，然后可以添加这些对-如果您具有功能add2 :: (Int,Int) -> (Int,Int) -> (Int,Int)添加第二个组件