lec06/Fibonacci.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

-- Exercise 1

fib :: Integer -> Integer
fib 0 = 0
fib 1 = 1
fib n = (fib (n-1)) + (fib (n-2))

fibs1 :: [Integer]
fibs1 = map fib [0..]

-- Exercise 2

fibs2 :: [Integer]
fibs2 = map fst $ iterate (\l -> ( snd l , snd l + fst l )) (0,1)