結果

問題 No.368 LCM of K-products
ユーザー %20
提出日時 2018-07-13 03:35:16
言語 Perl
(5.16.3)
結果
WA   .
実行時間 -
コード長 137 Byte
コンパイル時間 83 ms
使用メモリ 11,004 KB
最終ジャッジ日時 2018-09-03 06:02:53

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
akusitu1.txt AC 495 ms
11,004 KB
akusitu2.txt AC 60 ms
2,528 KB
akusitu3.txt AC 127 ms
5,404 KB
akusitu4.txt AC 184 ms
7,048 KB
akusitu5.txt WA -
akusitu6.txt AC 5 ms
2,344 KB
gekitsui01.txt AC 5 ms
2,352 KB
in1.txt AC 5 ms
2,352 KB
in2.txt AC 4 ms
2,348 KB
in3.txt AC 5 ms
2,352 KB
in4.txt AC 5 ms
2,352 KB
in5.txt AC 6 ms
2,352 KB
rand_large01.txt WA -
rand_large02.txt WA -
rand_large03.txt WA -
rand_large04.txt WA -
rand_large05.txt WA -
rand_large06.txt WA -
rand_large07.txt WA -
rand_large08.txt WA -
rand_large09.txt WA -
rand_large10.txt WA -
rand_small01.txt AC 5 ms
2,352 KB
rand_small02.txt AC 6 ms
2,356 KB
rand_small03.txt AC 5 ms
2,352 KB
rand_small04.txt AC 6 ms
2,352 KB
rand_small05.txt AC 6 ms
2,352 KB
rand_small06.txt AC 5 ms
2,348 KB
rand_small07.txt AC 5 ms
2,348 KB
rand_small08.txt AC 5 ms
2,352 KB
rand_small09.txt AC 5 ms
2,356 KB
rand_small10.txt AC 5 ms
2,356 KB
system_test1.txt WA -
test_1000.txt AC 43 ms
3,876 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
$\=<>=~$";$K=$';map{++$h{$_}[$i]for/ \d+/g;++$i}`factor`;for$k(keys%h){map{($\*=$k)%=1e9+7for 1..$_}(sort{$b-$a}@{$h{$k}})[0..$K-1]}print
0