-- Problem 1 module Main (main) where main :: IO () main = print $ problem1 problem1 :: (Integral a) => a problem1 = sum [ x | x <- [1..999], (mod x 3 == 0 || mod x 5 == 0) ] |
最新の20件2023-08-12
2022-12-28
2017-08-15
2014-01-31
2014-01-29
2013-06-04
2012-11-23
2010-08-01
2010-07-24
Tweet
|