http://projecteuler.net/index.php?section=problems&id=20 100の階乗の、各桁の数字を足し合わせる。 import Data.Char main = print $ euler020 100 euler020 :: Integer -> Int euler020 n = sum $ map digitToInt $ show $ fact n fact :: Integer -> I…

http://projecteuler.net/index.php?section=problems&id=19 20世紀で月初が日曜となる回数を求める。 main = print $ euler019 1901 2000 euler019 :: Int -> Int -> Int euler019 begin end = length $ filter (== 0) [dayOfWeek year month | year <- [be…