Question

我有一个 Haskell 函数正在运行，但它做错了。

它应该输出一个斐波那契数列，直到指定的最大数量。

像这样：

fibonacciSequence 86
1 1 2 3 5 8 13 21 33 54

我的代码目前正在输出斐波那契数列中的前 10 个数字，而不是从 1 到 10 的斐波纳契数列。

它输出的是 1 1 2 3 5 8 13 21 33 54，但它应该是 1,1,2,3,5,8。

fib :: Int -> Int
fib 0 = 0
fib 1 = 1
fib n = fib (n-1) + fib (n - 2)

---print (fib n)
fibList n = map fib[1..n]

main = 
do
putStrLn "The fibonacci series from 1 to n is:"
print (fibList 10)

任何帮助将不胜感激。谢谢！

Answer 1

更有效的方法是生成（无限）斐波那契数列：

fibs :: [Integer]
fibs = 0 : 1 : zipWith (+) fibs (tail fibs)

然后我们可以使用 takeWhile :: (a -> Bool) -> [a] -> [a] 从列表之一大于 10 的那一刻停止列表：

takeWhile (<= 10) fibs

这更有效，因为我们不需要为每个斐波那契数从零开始。此外，它在 O(k) 时间内构造了 k 项。

Answer 2

您想获取小于 10 的斐波那契数，因此：

fib 0 = 0
fib 1 = 1
fib n = fib (n-1) + fib (n-2)

fibList = map fib [0..]

takeWhile (<=10) fibList

---> [0,1,1,2,3,5,8]

Haskell Fibonacci 最大指定数字？

2 个答案: