blob: f99af1e08a1f044a11ad30336376140111acbddd (
plain)
1
2
3
4
5
6
7
8
9
10
|
-- Multiples of 3 and 5
-- Problem 1
-- If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.
-- Find the sum of all the multiples of 3 or 5 below 1000.
main = do
print (sum [x | x <- [0..999], x `mod` 3 == 0 || x `mod` 5 == 0])
|
