euler2

-- fibonacii
fib::Int->Int->[Int]
fib a b = a:(fib b (a+b))

mytakeWhile::(Int->Bool)->[Int]->[Int]
mytakeWhile _ [] = []
mytakeWhile f (x:xs)
          | f x = x:(mytakeWhile f xs)
          | otherwise = []

lessThan::Int->(Int->Bool)
lessThan x = (< x)

lessThanOneMil = lessThan 1000000

sumFib = sum [c | c <- mytakeWhile lessThanOneMil (fib 0 1) , c `mod` 2 == 0]