結果

問題 No.628 Tagの勢い
ユーザー %20
提出日時 2018-01-05 23:01:17
言語 Perl
(5.16.3)
結果
AC  
実行時間 27 ms
コード長 116 Byte
コンパイル時間 93 ms
使用メモリ 2,800 KB
最終ジャッジ日時 2018-11-12 15:24:36

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
test1.txt AC 8 ms
2,744 KB
test2.txt AC 8 ms
2,744 KB
test3.txt AC 8 ms
2,740 KB
test4.txt AC 8 ms
2,740 KB
test5.txt AC 8 ms
2,800 KB
test6.txt AC 8 ms
2,740 KB
test7.txt AC 9 ms
2,740 KB
test8.txt AC 8 ms
2,740 KB
test9.txt AC 9 ms
2,748 KB
test10.txt AC 9 ms
2,744 KB
test11.txt AC 6 ms
2,744 KB
test12.txt AC 8 ms
2,744 KB
test13.txt AC 27 ms
2,768 KB
test14.txt AC 24 ms
2,768 KB
test15.txt AC 24 ms
2,760 KB
test16.txt AC 25 ms
2,764 KB
test17.txt AC 14 ms
2,768 KB
test18.txt AC 8 ms
2,740 KB
test19.txt AC 8 ms
2,744 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
for(1..<>){
	<>;
	<>=~$";
	map$h{$_}+=$',glob<>;
}
print"$_ $h{$_}\n"for(sort{$h{$b}-$h{$a}||$a cmp$b}keys%h)[0..9]
0