#558280 (Perl) No.1237 EXP Multiple!

• 問題: No.1237 EXP Multiple!
• ユーザー: tails
• 提出日時: 2020-09-25 22:25:24
• 言語: Perl (5.38.2)
• 結果: WA (最新)
  AC
  (最初)
• 実行時間: -
• コード長: 65 bytes
• コンパイル時間: 854 ms
• コンパイル使用メモリ: 5,324 KB
• 実行使用メモリ: 48,168 KB
• 最終ジャッジ日時: 2023-09-10 17:27:03
• 合計ジャッジ時間: 8,622 ms
• ジャッジサーバーID （参考情報）: judge14 / judge12

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	6 ms; 5,176 KB
testcase_01	AC	380 ms; 35,424 KB
testcase_02	AC	521 ms; 46,844 KB
testcase_03	AC	547 ms; 47,592 KB
testcase_04	AC	342 ms; 48,168 KB
testcase_05	AC	314 ms; 46,404 KB
testcase_06	AC	318 ms; 46,328 KB
testcase_07	AC	317 ms; 46,332 KB
testcase_08	AC	320 ms; 46,328 KB
testcase_09	AC	325 ms; 46,452 KB
testcase_10	AC	324 ms; 46,412 KB
testcase_11	AC	325 ms; 46,352 KB
testcase_12	AC	323 ms; 46,408 KB
testcase_13	AC	319 ms; 46,308 KB
testcase_14	AC	320 ms; 46,432 KB
testcase_15	AC	321 ms; 46,456 KB
testcase_16	AC	318 ms; 46,572 KB
testcase_17	AC	328 ms; 46,460 KB
testcase_18	AC	320 ms; 46,432 KB
testcase_19	WA	-

コンパイルメッセージ

Unquoted string "inf" may clash with future reserved word at Main.pl line 1.
Main.pl syntax OK

ソースコード

$p=1;<>;map$p*=(0,1,4,729)[$_]//inf,glob<>;print$p?(1e9+7)%$p:-1;