結果

問題 No.368 LCM of K-products
ユーザー %20
提出日時 2018-07-13 03:28:45
言語 Perl
(5.16.3)
結果
AC   *
実行時間 429 ms
コード長 166 Byte
コンパイル時間 10 ms
使用メモリ 10,920 KB
最終ジャッジ日時 2018-09-03 05:55:57

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
akusitu1.txt AC 429 ms
10,920 KB
akusitu2.txt AC 23 ms
2,456 KB
akusitu3.txt AC 107 ms
5,328 KB
akusitu4.txt AC 157 ms
7,004 KB
akusitu5.txt AC 201 ms
6,604 KB
akusitu6.txt AC 5 ms
2,280 KB
gekitsui01.txt AC 4 ms
2,284 KB
in1.txt AC 5 ms
2,284 KB
in2.txt AC 6 ms
2,280 KB
in3.txt AC 5 ms
2,284 KB
in4.txt AC 4 ms
2,284 KB
in5.txt AC 4 ms
2,284 KB
rand_large01.txt AC 43 ms
4,356 KB
rand_large02.txt AC 91 ms
6,612 KB
rand_large03.txt AC 171 ms
7,420 KB
rand_large04.txt AC 82 ms
6,364 KB
rand_large05.txt AC 52 ms
5,372 KB
rand_large06.txt AC 114 ms
7,468 KB
rand_large07.txt AC 16 ms
2,808 KB
rand_large08.txt AC 60 ms
4,964 KB
rand_large09.txt AC 9 ms
2,536 KB
rand_large10.txt AC 112 ms
7,152 KB
rand_small01.txt AC 4 ms
2,280 KB
rand_small02.txt AC 4 ms
2,284 KB
rand_small03.txt AC 5 ms
2,280 KB
rand_small04.txt AC 5 ms
2,284 KB
rand_small05.txt AC 4 ms
2,284 KB
rand_small06.txt AC 5 ms
2,284 KB
rand_small07.txt AC 4 ms
2,284 KB
rand_small08.txt AC 5 ms
2,280 KB
rand_small09.txt AC 4 ms
2,284 KB
rand_small10.txt AC 5 ms
2,280 KB
system_test1.txt AC 15 ms
3,328 KB
test_1000.txt AC 37 ms
3,796 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

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