結果
問題 |
No.8083 12歳
|
ユーザー |
![]() |
提出日時 | 2021-04-01 22:02:30 |
言語 | Perl (5.40.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 279 bytes |
コンパイル時間 | 334 ms |
コンパイル使用メモリ | 7,076 KB |
実行使用メモリ | 6,824 KB |
最終ジャッジ日時 | 2024-12-21 06:21:16 |
合計ジャッジ時間 | 10,372 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 212 WA * 154 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
($y,$n,$d)=glob<>; $z=$y-13; $a=365+(($y%100==0?$y/100:$y)%4==0); $b=365+(($z%100==0?$z/100:$z)%4==0); if($a==$b){ $-=$n-$d; $c=$a-$d; } if($a<$b){ $-=$n-$d-($d>=59); $c=$b-$d-($d>=59); } if($a>$b){ $-=$n-$d+($d>=59); $c=$b-$d+($d>=59); } print $-, $", $n<=$c?$n:$c;