2016-05-15から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
1000未満のすべての3または5の倍数の合計を求めよ problem1 :: Int -> Int problem1 n = sum [x | x <- [1..n-1], x `mod` 3 == 0 || x `mod` 5 == 0] problem1 1000