euler/haskell/euler001.hs

7 lines
141 B
Haskell
Raw Normal View History

2020-10-27 05:29:30 +00:00
module Main where
2020-10-27 06:23:53 +00:00
divisible_by_3_or_5 x = (mod x 3 == 0) || (mod x 5 == 0)
2020-10-27 05:29:30 +00:00
main = do
2020-10-27 06:19:49 +00:00
print (sum (filter divisible_by_3_or_5 [1..999]))