結果

問題 No.967 引き算をして門松列（その２）
ユーザー tails
提出日時 2020-12-17 17:55:04
言語 Perl
(5.40.0)
結果
AC  
実行時間 79 ms / 2,000 ms
コード長 251 bytes
コンパイル時間 122 ms
コンパイル使用メモリ 7,072 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-09-21 08:09:26
合計ジャッジ時間 1,506 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 10
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::y" used only once: possible typo at Main.pl line 2.
Main.pl syntax OK

ソースコード

diff # 

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