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