6 lines
123 B
Haskell
6 lines
123 B
Haskell
main :: IO ()
|
|
main = putStr $ show solve
|
|
|
|
solve :: Integer
|
|
solve = sum [ x | x <- [0..999], mod x 3 == 0 || mod x 5 == 0 ]
|