mirror of
https://gitlab.com/mfocko/CodeWars.git
synced 2024-09-16 20:56:57 +02:00
5 lines
117 B
Haskell
5 lines
117 B
Haskell
|
module Fibonacci where
|
||
|
|
|
||
|
|
fib :: Int -> Int
|
||
|
|
fib n = snd $ foldl (\(prev, curr) _ -> (curr, prev + curr)) (1, 1) [3..n]
|