結果
| 問題 | No.628 Tagの勢い |
| コンテスト | |
| ユーザー |
%20
|
| 提出日時 | 2019-08-25 23:47:27 |
| 言語 | Perl (5.40.0) |
| 結果 |
AC
|
| 実行時間 | 20 ms / 2,000 ms |
| コード長 | 96 bytes |
| 記録 | |
| コンパイル時間 | 621 ms |
| コンパイル使用メモリ | 5,888 KB |
| 実行使用メモリ | 6,144 KB |
| 最終ジャッジ日時 | 2024-11-07 06:48:07 |
| 合計ジャッジ時間 | 1,605 ms |
|
ジャッジサーバーID (参考情報) |
judge4 / judge1 |
(要ログイン)
| ファイルパターン | 結果 |
|---|---|
| other | AC * 19 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$_&&print lc," $$_
"for(sort{$$b-$$a}sort map{<>;<>=~$";grep$'==($$_+=$'),glob uc<>}1..<>)[0..9]
%20