在Haskell中交错列表

Question

我想知道如何在Haskell中编写一个函数，将一个列表交织成单个列表，例如，如果我有一个名为

Answer 1

编写它的最快方法是使用transposefromdata.list。

import Data.List

interleavelists :: [[a]] -> [a]
interleavelists = concat . transpose

transpose选择其参数的每个非空列表中的第一个元素，将它们放入一个列表中，然后transpose转置参数的元素的tail列表。concat执行transpose结果的列表时，会根据需要将列表交织在一起。如果某些元素列表是无限的，那么它可以工作，但是如果列表本身有无限多的元素，那么它当然永远不会超过head的列表。但无论如何处理那个案子都是有问题的。

使用foldr交错列表并不简单。假设你有

interleavelists xss = foldr something zero xss

interleavelists [xs] = xs

something xs [] = xs

但是，如果第二个参数不是[]呢？然后，您需要将something第一个参数的元素以不同的距离插入到第二个参数中。但在哪些距离？如果所有列表具有相同的长度，则每个列表的距离是常数，那么可以将距离作为进一步的参数传递，

interleavelists = snd . foldr insertAtDistance (0, [])
  where
    insertAtDistance xs (d, ys) = (d+1, helper d xs ys)
    helper _ [] ws = ws
    helper k (b:bs) cs = b : us ++ helper k bs vs
      where
        (us,vs) = splitAt k cs

这并不是很漂亮，如果列表的长度不完全相同，那么将产生可能不是所需的输出。但是如果列表都有相同的长度，它就完成了任务。