Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {-
- - Project Euler 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.
- -
- - solution by nathan dotz
- - nathan (period) dotz (at sign) gmail (period) com
- -}
- main = putStrLn $ "Sum of all multiples of 3 or 5 below 1000: "
- ++ show ( sum [ x | x<-[1..999], x `mod` 3 == 0 || x `mod` 5 == 0] )
Add Comment
Please, Sign In to add comment