#594693 (Perl) No.967 引き算をして門松列（その２）

• 問題: No.967 引き算をして門松列（その２）
• ユーザー: tails
• 提出日時: 2020-12-17 17:55:04
• 言語: Perl (5.38.2)
• 結果: 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

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	4 ms; 6,816 KB
testcase_01	AC	4 ms; 6,940 KB
testcase_02	AC	4 ms; 6,944 KB
testcase_03	AC	33 ms; 6,940 KB
testcase_04	AC	31 ms; 6,940 KB
testcase_05	AC	31 ms; 6,944 KB
testcase_06	AC	33 ms; 6,940 KB
testcase_07	AC	33 ms; 6,940 KB
testcase_08	AC	50 ms; 6,944 KB
testcase_09	AC	74 ms; 6,944 KB
testcase_10	AC	75 ms; 6,940 KB
testcase_11	AC	79 ms; 6,944 KB

コンパイルメッセージ

Name "main::y" used only once: possible typo at Main.pl line 2.
Main.pl syntax OK

ソースコード

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,$/;
}