Haskell列表理解和`group`

如何解决Haskell列表理解和`group`

输入：

funcA [[（（0，'x'），1），（（0，'y'），3），（（1，'y'），3），（（1，'z '），3），（（（2，'x'），2），（（2，'y'），2）]

输出

[（0，1，“ x”），（0，3，“ y”），（1，3，“ yz”），（2，2，“ xy”） ]

我正在尝试按起始节点和目标节点分组，然后按concat分组所有边缘名称（例如'x'，'y'等值）。因此输出顺序为[(start,end,"concat val"),...]

如何用Haskell语言编写funcA？

我尝试了groupBy，列表理解，map函数，但无法弄清楚。

解决方法

您可以将funcA定义为：

import Data.Function (on)
import Data.List (groupBy)

funcA :: Eq a => [((a,b),a)] -> [(a,a,[b])]
funcA =
  map (\s@(((x,y),_):_) -> (x,y,map snd s))
  . groupBy ((==) `on` fst)
  . map (\((x,v),y) -> ((x,v))

给出列表：[((0,'x'),1),((0,'y'),3),((1,'z'),((2,2),2)]

• 链条末端的map将坐标合并为元组：

  [((0,'y')]

• groupBy组坐标：

  [[((0,'x')],[((0,'y')],[((1,'z')],[((2,'y')]]

• 第一个map将具有相同坐标的字符组合为具有该坐标的字符串。