結果

問題 No.967 引き算をして門松列（その２）
コンテスト
ユーザー 👑 tails
提出日時 2020-12-17 17:55:04
言語 Perl
(5.44.0)
コンパイル:
perl -cw _filename_
実行:
perl -X _filename_
結果
AC  
実行時間 50 ms / 2,000 ms
+ 699µs
コード長 251 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 5 ms
コンパイル使用メモリ 9,744 KB
実行使用メモリ 9,776 KB
最終ジャッジ日時 2026-09-01 12:59:13
合計ジャッジ時間 1,977 ms
ジャッジサーバーID
（参考情報） 		judge2_0 / judge3_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 10
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::y" used only once: possible typo at Main.pl line 2.
Main.pl syntax OK

ソースコード

diff #
raw source code 

sub f{
	($b,$y,$a,$x,$c,$z,$t)=@a[map{$_,$_+3}@_];
	$a<$b or $t+=$x*($a-$b+1),$a=$b-1;
	$c<$a or $t+=$z*($c-$a+1),$c=$a-1;
	$c>0?$t+0:();
}

<>;
for(<>){
	@a=split;
	print+(sort{$a<=>$b}
		f(1,0,2),
		f(1,2,0),
		f(0,2,1),
		f(2,0,1),
	)[0]//-1,$/;
}
0