haskell - 列表的 pretty-print 列表

Question

我有一个列表列表:

[[5,1,0,0,5,5,0,0],[0,0,1,4,2,0,6,1],[1,1,6,3,0,1,0,0],[1,5,0,0,0,1,1,6]]

和一个字符串“wxyz”

我想要:1)

w: 5 1 0 0 5 5 0 0
x: 0 0 1 4 2 0 6 1
y: 1 1 6 3 0 1 0 0
z: 1 5 0 0 0 1 1 6

我写道:

f c xs = putStrLn (c : ':' : ' ' : concat (intersperse " " $ map show xs))

写一行

和 2)

g xxs c = mapM_ (f c) xxs

如何修改 2) 以循环遍历字符串“wxyz”以获得 1)？

Answer 1

您可以使用 Control.Monad 中的 zipWithM_ 代替 mapM_:

g xss cs = zipWithM_ f cs xss

或者，如果您更改 f 或 g 中参数的顺序以匹配，您可以用更少的“点”来完成:

g = zipWithM_ f

此外，concat (intersperse ""...) 也称为 unwords ...。