Haskell 列表理解和`group`

Question

输入：

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功能，但无法弄清楚。

Answer 1

您可以将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,y),v))

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

• 链末端的map将坐标连接成一个元组：

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

• groupBy在坐标上分组：

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

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