在Haskell中压缩2D列表

Question

我想使用zip在Haskell中组合两个二维列表,即实现这样的事情

[[1,2,3],           [[10, 11, 12],         [[(1, 10), (2, 11), (3, 12)],
 [4,5,6],   `zip'`   [13, 14, 15],   ->     [(4, 13), (5, 14), (6, 15)],
 [7,8,9]]            [16, 17, 18]]          [(7, 16), (8, 17), (9, 18)]]

不使用Prelude之外的任何功能.有没有办法可以这样做,map或许使用？问题是一个人不能map zip超过两个列表.

Answer 1

zip' = zipWith zip

不错,不是吗？