Main.hs (142B)
1 import Prelude 2 3 fib :: Integer -> Integer 4 fib n | n < 2 = n 5 | otherwise = fib(n - 1) + fib(n - 2) 6 7 main :: IO() 8 main = print $ fib(10)
