久しぶりにHaskellをつかいました． やっぱりつかわないとできないですね．Haskell書かないとです． A C++で書いたコードを流用した．Functor, Applicative Functor, Monadどれも忘れてしまいました． import Control.Applicative -- 順にn, m, N(iで代用), …

Atcoder #002 A getLineで入れて，isLeapyearでYES or NOを返して，putStrで表示するだけのお仕事 isLeapyear :: String -> String isLeapyear ys | y `mod` 400 == 0 = "YES\n" | y `mod` 100 == 0 = "NO\n" | y `mod` 4 == 0 = "YES\n" | otherwise = "NO\…