Haskell混合两个列表

Question

我即将编写我的第一个haskell程序，所以我需要您的帮助。 我想链接两个列表。 例如;

a = [4,8,20]
b = [3,5,17,56,89,30]

interlink a b = [4,3,8,5,20,17,56,89,30]

结果列表必须交替包含列表a和b的元素。 如果一个列表较长，则应在将较短列表与较长列表的元素混在一起之后，将较长列表的元素添加到结果列表中。 我想您在上面的示例中看到了这一点。

现在我该如何在Haskell中做到这一点？

我的开始

mix :: [a]->[a]->[a]
mix (x:l1) (y:l2) = (x:y:[])
mix [] [] = []

拜托，你能帮我吗？

Answer 1

我没有像平常一样在其他计算机上可以使用的解释器，但是这里有一些代码：

mix :: [a] -> [a] -> [a]
mix (x:xs) (y:ys) = x : y : mix xs ys
mix x [] = x
mix [] y = y

编辑：我刚刚在网上测试过，我相信它可以工作。

Answer 2

因此，有两个函数transpose和concat 。

-- transpose :: [[a]] -> [[a]] 
-- concat :: Foldable t => t [a] -> [a]

由于List已经有一个Foldable实例，因此最终是一行代码，如下所示：

concat . transpose $ a : b : []

要么

concat . transpose  $ [a,b]

第一步是使用转置来创建列表列表，如下所示

λ> transpose  $ [a, b]
[[4,3],[8,5],[20,17],[56],[89],[30]]

然后我们崩溃为一。

这里的秘密是使用功能组合。 的. 是一个需要两个函数并依次调用另一个函数创建一个更大函数的函数，因此：

(.) :: (b -> c) -> (a -> b) -> a -> c

表示：将第一个函数的结果transpose ，并将其提供给下一个函数concat 。

只要类型允许，我们就可以链接任意数量的函数。 在我们的例子中，组合创建了一个函数[a] -> [a] -> [a]