結果

問題 No.8083 １２歳
ユーザー tails
提出日時 2021-04-01 21:54:50
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 283 bytes
コンパイル時間 448 ms
コンパイル使用メモリ 6,944 KB
実行使用メモリ 6,824 KB
最終ジャッジ日時 2024-12-21 06:14:16
合計ジャッジ時間 10,771 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 261 WA * 105
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

($y,$n,$d)=glob<>;

$z=$y-12;

$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=$a-$d+($d<=$a-59);
}

if($a>$b){
	$-=$n-$d+($d>60);
	$c=$a-$d-($d<=$a-60);
}

print $-, $", $n<=$c?$n:$c;
0