迭代函数不保存中间步骤？

Question

我刚刚开始学习 Haskell，并作为练习进入了欧拉计划问题，其中对斐波那契数进行求和。我当前的方法是这个函数，它使用下一个元素创建一个新列表：

fib :: (Integral a) => [a] -> [a]
fib xs@(x1:x2:_) = (x1+x2) : xs

我找到了函数 iterate ，它在其结果上重新应用该函数。但是，结果是一个列表列表，[[2,1],[3,2,1],[5,3,2,1],..]。当我对中间结果不感兴趣时​​，迭代的替代方法是什么？我想对最后生成的数字执行一个 takeWhile 。这是完全错误的思考方式吗？

（我见过更好/更短/更漂亮的生成斐波那契序列的方法，所以我并不是真的在寻找关于 fib 函数的反馈 - 但我想让它工作，次优方法或不）

Answer 1

只需使用迭代！因为 Haskell 是一种纯语言，所以所有子列表都会共享，并且您基本上无需为生成所有这些迷你列表付出任何成本： [2, 1] 实际上是 2, 1< /code> 在 [3, 2, 1] 中，依此类推。

您实际上并不需要 takeWhile，因为这会给您带来很多额外的麻烦，并且您仍然需要使用 last 到达列表的末尾。相反，请使用find。

另请注意，如果您打算对结果列表进行求和，那么您就错过了 1，因此您可能会失败。

Answer 2

我不确定 iterate 的使用，但请参阅过滤斐波那契Haskell 中的序列 了解如何过滤谎言列表。

这是同一个家庭作业吗？

Answer 3

我会使用“take”，因为每个连续的近似值都会比上一个更准确。然后你可以对其进行 (head .reverse) 操作。

请注意，如果您正在迭代的函数没有可计算的不动点，则“每个”结果都是中间结果。

Answer 4

当在 Haskell 中需要一个函数时，只需定义它:)

下面的代码不是最优雅或最惯用的 Haskell，但它表明，如果需要的话，你总是可以使用尾递归循环手动完成任务，

apply_n f n x =
    if n = 0 then x
    else apply_n' f (n-1) (f x)

n_th_fib n = apply_n fib n [1,1]

我很确定那里有是使用折叠（或我忘记的库函数:)）来做到这一点的更简洁的方法