プロジェクトオイラー その1

1000未満のすべての3または5の倍数の合計を求めよ

problem1 :: Int -> Int
problem1 n = sum [x | x <- [1..n-1], x `mod` 3 == 0 || x `mod` 5 == 0]
problem1 1000