Krautspace/project-euler
Archived
2
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

haskell solutions for 1 and 2

Browse source
This commit is contained in:
Lowl3v3l 2017-12-15 18:17:11 +01:00
parent 73b494e207
commit 2717476a96
2 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
e0001/euler0001.hs Normal file
View file

@ -0,0 +1,5 @@
main :: IO()
main = do
print (sum multiples)
where
multiples = [x | x <- [3..999], (mod x 3 == 0) || (mod x 5 == 0)]

6
e0002/euler0002.hs Normal file
View file

@ -0,0 +1,6 @@
main :: IO()
main = do
print (sum ret)
where
fibs = 1 : 2 : zipWith (+) fibs (tail fibs)
ret = filter even (takeWhile (<= 4000000) fibs)