結果

問題 No.8083 １２歳
コンテスト
ユーザー 👑 tails
提出日時 2021-04-01 22:02:30
言語 Perl
(5.42.1)
コンパイル:
perl -cw _filename_
実行:
perl -X _filename_
結果
WA  
実行時間 -
コード長 279 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 157 ms
コンパイル使用メモリ 8,096 KB
実行使用メモリ 7,976 KB
最終ジャッジ日時 2026-05-27 23:12:45
合計ジャッジ時間 8,110 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge3_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 212 WA * 154
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
raw source code 

($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;
0