||||||||||||||||||||||||||||||||||||
|| Calculates the Fibonacci number
|| fib 4 => 3

|| Creates an infinite list, thus it does not need a base case
add_adjacent (x:y:xs) = (x + y) : add_adjacent (y:xs)

|| Fibonacci sequence: infinite list of fib numbers
fibs = 0 : 1 : add_adjacent fibs

|| compute ith fib number
fib = (!) fibs