[[ProjectEular]]

 -- 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) ]
トップ   差分 バックアップ リロード   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS