10 lines
140 B
Haskell
10 lines
140 B
Haskell
|
import Data.List (foldl') --'
|
||
|
|
|
||
|
|
fib :: Integer -> Integer
|
||
|
|
fib n =
|
||
|
|
fst $
|
||
|
|
foldl' --'
|
||
|
|
(\(a, b) _ -> (b, a + b))
|
||
|
|
(0, 1)
|
||
|
|
[1 .. n]
|