haskell - Haskell 中的列表连接

Question

我想要一个函数，它接受两个任何类型的列表并返回一个(即 f:: [[a]] -> [[a]] -> [[a]] )。基本上，也会产生两个输入列表的“串联”。

例如

> f [[1,2,3], [123]] [[4,5,6], [3,7]]
[[1,2,3,4,5,6], [1,2,3,3,7], [123,4,5,6], [123,3,7]]

我目前已经做到了这一点:

f _ [] = []
f [] _ = []
f (xs:xss) (ys:yss) = ((xs ++ ys) : [m | m <- f [xs] yss])

但这并没有考虑到 xss并且是错误的。有什么建议？

Answer 1

它是笛卡尔积，因此您可以简单地使用一个列表理解来完成所有工作。

Prelude> let xs = [[1,2,3], [123]]
Prelude> let ys = [[4,5,6], [3,7]]
Prelude> [x ++ y | x <- xs, y <- ys]
[[1,2,3,4,5,6],[1,2,3,3,7],[123,4,5,6],[123,3,7]]