Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
4 lines (3 sloc) 112 Bytes
import EulerMath.Fib
euler2 :: Int -> Int
euler2 n = sum $ filter even $ takeWhile (< n) [ fib k | k <- [1..] ]