2011-07-29 Problem 2 fib :: [Int] fib = 1 : 2 : zipWith (+) fib (tail fib) sum $ filter even $ takeWhile (\x -> x < 4000000) $ fib