Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (5 sloc) 150 Bytes
fibonaccis = fib_inner 0 1
where
fib_inner a b = a:(fib_inner b (a+b))
main = do
print $ sum (takeWhile (<= 4000000) ([n|n<-fibonaccis,even n]))
Something went wrong with that request. Please try again.