tonyonodi · June 12, 2019 10:11
diff --git a/euler_2.hs b/euler_2.hs
 {--
 By considering the terms in the Fibonacci sequence whose values do not exceed four million, 
 find the sum of the even-valued terms.
 --}

 let fib = 1 : 2 : zipWith (+) fib (tail fib)
 foldr (+) 0 $ filter even $ takeWhile  (< 4e6) fib
	{--
	By considering the terms in the Fibonacci sequence whose values do not exceed four million,
	find the sum of the even-valued terms.
	--}

	let fib = 1 : 2 : zipWith (+) fib (tail fib)
	foldr (+) 0 $ filter even $ takeWhile (< 4e6) fib