結果
問題 |
No.721 Die tertia (ディエ・テルツィア)
|
ユーザー |
![]() |
提出日時 | 2018-08-03 22:33:15 |
言語 | Nim (2.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 460 bytes |
コンパイル時間 | 3,463 ms |
コンパイル使用メモリ | 67,260 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-07-01 03:38:40 |
合計ジャッジ時間 | 4,312 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 18 |
ソースコード
import strutils, sequtils const lst = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31] var tmp = split(readLine stdin, "/").map parseInt (Y, M, D) = (tmp[0], tmp[1], tmp[2]) proc go = D += 1 var j: int if Y mod 400 == 0 or (Y mod 100 != 0 and Y mod 4 == 0): if M == 2: j = 1 if D > lst[M - 1] + j: M += 1 D = 1 if M > 12: Y += 1 M = 1 for i in 0 ..< 2: go() echo mapIt([Y, M, D], align($it, 2, '0')).join("/")