結果

問題 No.721 Die tertia (ディエ・テルツィア)
ユーザー momen999
提出日時 2019-04-01 23:13:09
言語 Haskell
(9.10.1)
結果
WA  
実行時間 -
コード長 594 bytes
コンパイル時間 12,018 ms
コンパイル使用メモリ 224,372 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2024-11-27 04:13:55
合計ジャッジ時間 7,925 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 16 WA * 2
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )
[2 of 2] Linking a.out

ソースコード

diff # 

import Text.Printf
import qualified Data.Text as T

md = [31,28,31,30,31,30,31,31,30,31,30,31]

uruu :: Int -> Bool
uruu n = mod n 4 == 0

f (y:m:d:[]) = printf "%d/%02d/%02d\n" y' m' d'
    where
        u = m == 2 && uruu y
        md' | u         = 29
            | otherwise = md !! (m - 1)
        (d', um)    | d + 2 > md'   = (d + 2 - md', 1)
                    | otherwise     = (d + 2, 0)
        (m', uy)    | m + um > 12   = (1, 1)
                    | otherwise     = (m + um, 0)
        y' = y + uy

main = getLine >>= f . map (read . T.unpack) . T.splitOn (T.pack "/") . T.pack
0