haskell 001

master
Evan Hemsley 2020-10-26 22:29:30 -07:00
parent 79e1f45b8e
commit 46b96327d5
2 changed files with 11 additions and 0 deletions

3
.gitignore vendored
View File

@ -4,3 +4,6 @@ c/binaries
*/bin/* */bin/*
*.dwarf *.dwarf
rust/target rust/target
*.hi
*.o

8
haskell/euler001.hs Normal file
View File

@ -0,0 +1,8 @@
module Main where
up_to x = take (x-1) (iterate (1+) 1)
divisible_by_3_or_5 x = (x `mod` 3 == 0) || (x `mod` 5 == 0)
main = do
print (sum (filter divisible_by_3_or_5 (up_to 1000)))