Haskell优化无限列表实现

Question

我的代码给出了想要的结果，但我想知道是否有更好的编码方法。这是给定的示例：

pair [ 1 , 2 , 3 , 4 , 5 , 6 , ... ]
[ [ 1 , 2 ] , [ 3 , 4 ] , [ 5 , 6 ] , ... ]

和给定的代码：

pair::[a] -> [[a]]
pair =

我的解决方案：

pair :: [a] -> [[a]]
pair (x:y:xs) = ((x:y:[]):[]) ++ pair xs

Answer 1

使用 cons 运算符 : 将比连接列表更高效：

pair :: [a] -> [[a]]
pair (x:y:xs) = [x, y] : pair xs

原因是 Haskell 中的列表是链表，其中每个项目都指向下一个项目，直到列表末尾。 Pushs 和 Pops 在列表头部完成时成本较低，因为您只是将头部指向现有列表的头部。

当你连接两个链表时，你实际上是在重建完整的第一个链表，以便它的最后一个元素可以指向第二个链表的第一个元素。

在您的示例中，性能提升很小，因为您的列表中只有两个元素，但作为一般规则，如果您正在处理列表头部的操作，它几乎总是会更高效使用缺点。