RosettaCodeData/Task/Fibonacci-sequence/Haskell/fibonacci-sequence-5.hs

fib n = go n 0 1
    where
    go n a b | n==0 = a
             | otherwise = go (n-1) b (a+b)