Project Euler - Problem 2

This was also so easy :)

	import System.IO
	main = do
	putStrLn $ show $ sum $ filter even $ takeWhile ((>) 4000000) fib
	fib = 1:2:[ a+b | (a,b) <- zip fib (tail fib)]

view raw gistfile1.hs hosted with ❤ by GitHub