euler/haskell/euler001.hs

module Main where

main = do
    print $ sum [x | x <- [1..999], mod x 3 == 0 || mod x 5 == 0]