8 lines
132 B
Haskell
8 lines
132 B
Haskell
import Lib (fib)
|
|
|
|
main :: IO ()
|
|
main = putStr $ show solve
|
|
|
|
solve :: Integer
|
|
solve = sum $ filter even $ takeWhile (<= 4000000) fib
|