All pastes #2097569 Raw Edit

Untitled

public text v1 · immutable
#2097569 ·published 2011-12-31 00:38 UTC
rendered paste body
infib :: [Int]
infib = 1 : 1 : zipWith (+) infib (tail infib)

main = print $ sum $ filter even $ takeWhile (<= 4000000) infib