Haskellで単調に import Data.List isLeapYear :: Int -> Bool isLeapYear y | (y `mod` 4 == 0 && (not (y `mod` 400 /= 0 && y `mod` 100 == 0))) = True | otherwise = False dayList :: Int -> [Int] dayList y | isLeapYear y = [31]++[29]++[31,30,31,…