diff options
Diffstat (limited to 'lec06/Fibonacci.hs')
| -rw-r--r-- | lec06/Fibonacci.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lec06/Fibonacci.hs b/lec06/Fibonacci.hs index 79f888e..5d5eb00 100644 --- a/lec06/Fibonacci.hs +++ b/lec06/Fibonacci.hs @@ -11,5 +11,5 @@ fibs1 = map fib [0..] -- Exercise 2 fibs2 :: [Integer] -fibs2 = 0 : (map last $ iterate (\l -> [ last l , last l + (last . init) l ]) [0,1]) +fibs2 = map fst $ iterate (\l -> ( snd l , snd l + fst l )) (0,1) |