邮编超过2D列表在Haskell

Question

我想两个2维列表在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)]] 

。也许有一种方法可以完成，使用map？问题在于两个列表上不能有mapzip。

Answer 1

zip' = zipWith zip 

不错，是不是？