前n個斐波那契數的和haskell

Question

我有tu計算前n個斐波那契數的和。 fib函數返回第n個fibonnaci數。但我不知道如何總結只有第n個數字（正給定數量）

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

sumFib :: Int -> Int 
sumFib x = if x == fib x then x+fib x else fib x 

Answer 1

第一n數字是[1 .. n]。例如，在ghci中

Prelude> [1..7] 
[1,2,3,4,5,6,7] 

您可以map函數到列表中，應用該函數到每個元素在列表中，並返回結果列表。例如

Prelude> double x = x+x 
Prelude> map double [1..7] 
[2,4,6,8,10,12,14] 

你可以做同樣的事情fib，map荷蘭國際集團就在第一n號碼。如果你想爲n這麼做，你需要更高效的執行fib。

您可以sum列表中的元素。例如

Prelude> sum [1,3,7] 
11 

如果你把這些三條思路在一起，你可以sum的fib結果的第一n號碼。

Answer 2

FIB發現第n Fibonacci數

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

地圖」是標準映射函數的implemantation（我是不允許使用它）

map' :: (a -> b) -> [a] -> [b] 
map' _ [] = [] 
map' f (x:xs) = f x : map' f xs 

sumFib計算的總和前n個fibonnaci數字。

sumFib :: Int -> Int 
sumFib x = sum (map' fib [1..x]) 

Answer 3

另一個很好的選擇是生成一個懶惰的功能給我們提供無限Fibonacci數的名單多達我們需要的。雖然我們可以通過很多遞歸技巧來實現這一點，但我相信Haskell的系列生成函數，即unfoldr是理想的函數。下面的代碼將精美地爲我們生成一個儘可能多的斐波那契數列表，這些列表需要懶惰地進行。

fibs :: [Integer] 
fibs = unfoldr (\(f,s) -> Just (f,(s,f+s))) (0,1) 

現在我們要做的就是讓斐波納契數的總和達到給定的數。此時take函數便於使用。 take將採取列表的第一個n項目。然後，我們需要做的就是將sum函數應用於結果列表。

fibs :: [Integer] 
fibs = unfoldr (\(f,s) -> Just (f,(s,f+s))) (0,1) 

sumNFibs :: Int -> Integer 
sumNFibs = sum . (flip take) fibs 

*Main> sumNFibs 10 
88