Ticket #5778: fib.hs

File fib.hs, 90 bytes (added by lpsmith, 3 years ago)
Line 
1module Fib where
2
3fib :: Int -> Integer
4fib 0 = 0
5fib 1 = 1
6fib n = fib (n-1) + fib (n-2)