結果
問題 | No.967 引き算をして門松列(その2) |
ユーザー |
![]() |
提出日時 | 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
ソースコード
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,$/; }