結果

問題 No.966 引き算をして門松列（その１）
ユーザー tailstails
提出日時 2021-02-04 10:42:54
言語 Perl
(5.38.2)
結果
AC  
実行時間 21 ms / 2,000 ms
コード長 196 bytes
コンパイル時間 140 ms
コンパイル使用メモリ 6,944 KB
実行使用メモリ 6,784 KB
最終ジャッジ日時 2024-06-30 15:50:46
合計ジャッジ時間 1,152 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 2 ms
5,248 KB
testcase_01 AC 3 ms
5,376 KB
testcase_02 AC 3 ms
5,376 KB
testcase_03 AC 3 ms
5,376 KB
testcase_04 AC 16 ms
6,400 KB
testcase_05 AC 17 ms
6,400 KB
testcase_06 AC 21 ms
6,784 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Unquoted string "inf" may clash with future reserved word at Main.pl line 6.
Unquoted string "inf" may clash with future reserved word at Main.pl line 7.
Unquoted string "inf" may clash with future reserved word at Main.pl line 9.
Possible precedence problem on bitwise | operator at Main.pl line 9.
Main.pl syntax OK

ソースコード

diff # 

<>;
for(<>){
	($a,$b,$c)=split;
	($a,$c)=($c,$a)if$a>$c;
	$a-=$x=$a==$c;
	$y=$b>2?($-=$c-($b-1))+0+($-=$a-($b-2)):inf;
	$z=$a>1?($-=$b-($a-1)):inf;
	$x+=$y<$z?$y:$z;
	print!$a|$x==inf?-1:$x,$/;
}
0