Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
6 lines (5 sloc) 127 Bytes
module Problem_2
( solve
) where
fibo a b = a:fibo b (a+b)
solve = sum (filter even (takeWhile (<4000000) (fibo 1 2)))
You can’t perform that action at this time.