#451050 (Perl) No.79 過小評価ダメ・ゼッタイ

• 問題: No.79 過小評価ダメ・ゼッタイ
• ユーザー: tonyu0
• 提出日時: 2020-03-29 12:22:26
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 204 ms / 5,000 ms
• コード長: 79 bytes
• コンパイル時間: 641 ms
• コンパイル使用メモリ: 5,388 KB
• 実行使用メモリ: 33,392 KB
• 最終ジャッジ日時: 2023-08-30 18:41:26
• 合計ジャッジ時間: 3,799 ms
• ジャッジサーバーID （参考情報）: judge12 / judge14

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	14 ms; 5,996 KB
testcase_01	AC	199 ms; 26,120 KB
testcase_02	AC	6 ms; 5,120 KB
testcase_03	AC	6 ms; 5,316 KB
testcase_04	AC	6 ms; 5,092 KB
testcase_05	AC	185 ms; 33,392 KB
testcase_06	AC	6 ms; 5,168 KB
testcase_07	AC	5 ms; 5,164 KB
testcase_08	AC	6 ms; 5,172 KB
testcase_09	AC	6 ms; 5,108 KB
testcase_10	AC	6 ms; 5,388 KB
testcase_11	AC	6 ms; 5,096 KB
testcase_12	AC	6 ms; 5,168 KB
testcase_13	AC	6 ms; 5,220 KB
testcase_14	AC	120 ms; 17,488 KB
testcase_15	AC	52 ms; 10,112 KB
testcase_16	AC	155 ms; 21,424 KB
testcase_17	AC	48 ms; 9,860 KB
testcase_18	AC	148 ms; 20,652 KB
testcase_19	AC	110 ms; 16,580 KB
testcase_20	AC	204 ms; 26,276 KB
testcase_21	AC	10 ms; 5,704 KB
testcase_22	AC	73 ms; 12,616 KB
testcase_23	AC	192 ms; 25,152 KB
testcase_24	AC	198 ms; 25,608 KB

コンパイルメッセージ

Parentheses missing around "my" list at Main.pl line 2.
Useless use of a variable in void context at Main.pl line 2.
Main.pl syntax OK

ソースコード

<>;
my @memo, @ans;
$ans[++$memo[$_]]=$_ for sort{$a-$b}glob<>;
print $ans[-1];