最初のnフィボナッチ数の合計haskell

Question

最初のnフィボナッチ数の合計を計算しました。 fib関数はn番目のfibonnaci数を返します。しかし、私は最初のn個（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] 

のためにあなたはまずn数字にそれをINGのfib、mapと同じことを行うことができます。 nのサイズを大きくしたい場合は、fibをより効率的に実装する必要があります。

sumリスト内の要素を使用できます。あなたが一緒にこれら三つのアイデアを入れた場合の例

Prelude> sum [1,3,7] 
11 

のためには、まずn番号についてfibの結果をsumすることができます。

Answer 2

FIBはsumFibはの和を計算

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

（私はそれを使用することができなかった）n番目のフィボナッチ数

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

地図」は標準マップ関数のimplemantationある認めます最初のnフィブロナシ数。

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

Answer 3

もう一つの良いオプションは、私たちが必要として無期限として多くのフィボナッチ数のリストを提供するために、怠惰な関数を生成することであろう。私たちは多くの再帰トリックでこれを達成することができますが、私は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