在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

很好，不是吗？