#228761 (Perl) No.556 仁義なきサルたち

• 問題: No.556 仁義なきサルたち
• ユーザー: %20
• 提出日時: 2018-01-10 01:42:37
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 94 ms / 2,000 ms
• コード長: 183 bytes
• コンパイル時間: 432 ms
• コンパイル使用メモリ: 5,368 KB
• 実行使用メモリ: 7,740 KB
• 最終ジャッジ日時: 2023-08-25 02:30:40
• 合計ジャッジ時間: 2,154 ms
• ジャッジサーバーID （参考情報）: judge12 / judge13

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	6 ms; 5,228 KB
testcase_01	AC	6 ms; 5,184 KB
testcase_02	AC	6 ms; 5,212 KB
testcase_03	AC	6 ms; 5,064 KB
testcase_04	AC	6 ms; 5,204 KB
testcase_05	AC	7 ms; 5,208 KB
testcase_06	AC	7 ms; 5,300 KB
testcase_07	AC	8 ms; 5,252 KB
testcase_08	AC	8 ms; 5,208 KB
testcase_09	AC	8 ms; 5,288 KB
testcase_10	AC	12 ms; 5,428 KB
testcase_11	AC	13 ms; 5,568 KB
testcase_12	AC	14 ms; 5,384 KB
testcase_13	AC	12 ms; 5,712 KB
testcase_14	AC	32 ms; 6,288 KB
testcase_15	AC	42 ms; 6,316 KB
testcase_16	AC	35 ms; 6,860 KB
testcase_17	AC	58 ms; 7,156 KB
testcase_18	AC	94 ms; 7,740 KB
testcase_19	AC	86 ms; 7,692 KB
testcase_20	AC	89 ms; 7,604 KB
testcase_21	AC	90 ms; 7,672 KB

コンパイルメッセージ

Main.pl syntax OK

ソースコード

sub f{
	$p[$_]=$_-$p[$_]?f(local$_=$p[$_]):$_
}
map$p[$_]=$_,@@=1..<>;
map{
	@a=sort{$n[$a]-$n[$b]||$b-$a}map f,glob;
	$n[$p["@a"]=$a[1]]+="@a"-$a[1]&&$n["@a"]+1
}<>;
print f,$/for@@