結果

問題 No.3020 サンシャイン◯崎
ユーザー %20
提出日時 2017-03-31 22:42:01
言語 Perl
(5.16.3)
結果
AC  
実行時間 5 ms
コード長 46 Byte
コンパイル時間 13 ms
使用メモリ 8,920 KB
最終ジャッジ日時 2018-12-04 13:33:25

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
1.txt AC 2 ms
6,872 KB
2.txt AC 2 ms
6,872 KB
3.txt AC 2 ms
6,868 KB
4.txt AC 4 ms
6,872 KB
5.txt AC 2 ms
6,872 KB
6.txt AC 5 ms
6,868 KB
7.txt AC 4 ms
6,872 KB
8.txt AC 4 ms
6,872 KB
9.txt AC 4 ms
6,872 KB
10.txt AC 2 ms
6,868 KB
11.txt AC 3 ms
6,872 KB
12.txt AC 3 ms
6,872 KB
13.txt AC 4 ms
6,868 KB
14.txt AC 5 ms
6,868 KB
15.txt AC 5 ms
6,872 KB
16.txt AC 4 ms
6,872 KB
17.txt AC 5 ms
6,872 KB
18.txt AC 4 ms
6,868 KB
19.txt AC 5 ms
8,920 KB
20.txt AC 4 ms
6,868 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
$,=$";print y/Y//,y/E//,y/A//,y/H//,y/!//for<>
0