結果

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

テストケース

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

ソースコード

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