path: root/haskell/p1.hs

p1 :: Int
p1 = sum [x | x <- [1..999], mod x 3 == 0 || mod x 5 == 0]

main = putStrLn $ "Solution: " ++ show p1