davorb · March 29, 2012 16:05
diff --git a/euler2.hs b/euler2.hs
 -- the sum of the even valued values of the fibonacci sequence
 -- whose values do not exeed four million
 fibonacci 0 = 0
 fibonacci 1 = 1
 fibonacci n = fibonacci (n-1) + fibonacci (n-2)

 fib = [fibonacci n | n <- [0..]]
 answer2 = sum $ filter even $ takeWhile (<4000000) fib

 main = putStrLn $ show answer2
	-- the sum of the even valued values of the fibonacci sequence
	-- whose values do not exeed four million
	fibonacci 0 = 0
	fibonacci 1 = 1
	fibonacci n = fibonacci (n-1) + fibonacci (n-2)

	fib = [fibonacci n \| n <- [0..]]
	answer2 = sum $ filter even $ takeWhile (<4000000) fib

	main = putStrLn $ show answer2