给你个提示。
取2的幂序列。

p2 = [1, 2, 4, 8, 16 ...

zip它本身

zip p2 p2 = [(1,1), (2,2), (4,4), ...]

对列表中的每一对求和（这可以使用列表解析来完成）

[2, 4, 8, ...

前置1：

[1, 2, 4, 8, ...

所以我们又得到了p2列表。如果你用Haskell来表达所有这些，你最终得到的代码形式为

p2 = 1 : ... something involving p2 ...

这是一个产生2的幂的工作程序。
一旦你得到这个工作，你可以改变它 * 轻微 *，并获得斐波纳奇以及。
对于最后一点：是的，打印p2将打印整个无限序列。

take 10 p2

下面是另一个chi风格（希望您不要介意）：
写下谎言：

fibs = 1 1 2 3 5 8 13 ...

再写一遍，但左移一位：

fibs       = 1 1 2 3 5 8 13 ...
(??? fibs) = 1 2 3 5 8 13 ...

添加它们：

fibs       = 1 1 2 3 5 8 13 ...
(??? fibs) = 1 2 3 5 8 13 ...
--------------------
(+ em)     = 2 3 5 8 13 21 ...

看起来眼熟吗
现在你只需要（再次）在前面加上一些东西，并思考一下这里的 shift left 是什么意思（hint 你提到过）：

fibs       = 1 1 2 3 5 8 13 ...
(??? fibs) = 1 2 3 5 8 13 ...
--------------------
(+ em)     = 2 3 5 8 13 21 ...
=> fibs = ? : ((+ em) fibs (??? fibs))

同样，使用zipWith (+)也可以很好地进行求和
玩得开心点

下面是我使用zip和tail找到的解决方案：

fibs :: [Integer]
fibs = 0:1:[x + y | (x,y) <- zip fibs (tail fibs)]

如果你运行fib，它会一直打印，直到计算机内存耗尽并崩溃。你可以通过take和takeWhile调用返回无限列表的函数来返回有限列表。Haskell使用惰性求值来使处理无限数据结构更高效。
示例：
take 10 fibs
印刷品：
[0,1,1,2,3,5,8,13,21,34]