module TestCombinedExample.Fib where -- | Calculate Fibonacci number of given 'Num'. -- -- First let's set `n` to ten: -- -- >>> let n = 10 -- -- And now calculate the 10th Fibonacci number: -- -- >>> fib n -- 55 -- -- >>> let x = 10 -- >>> x -- 10 fib :: Integer -> Integer fib :: Integer -> Integer fib Integer 0 = Integer 0 fib Integer 1 = Integer 1 fib Integer n = Integer -> Integer fib (Integer n Integer -> Integer -> Integer forall a. Num a => a -> a -> a - Integer 1) Integer -> Integer -> Integer forall a. Num a => a -> a -> a + Integer -> Integer fib (Integer n Integer -> Integer -> Integer forall a. Num a => a -> a -> a - Integer 2)