AtCoder Grand Contest 019

Submission #1546287

Source codeソースコード

$_=<>;
chop;
$%=y///c*~-y///c/2+1;
for$a(a..z){$%-=($t=s/$a//g)*~-$t/2}
print$%

Submission

Task問題 B - Reverse and Compare
User nameユーザ名 %20
Created time投稿日時
Language言語 Perl (v5.18.2)
Status状態 AC
Score得点 500
Source lengthソースコード長 85 Byte
File nameファイル名
Exec time実行時間 41 ms
Memory usageメモリ使用量 640 KB

Compiler messageコンパイルメッセージ

Unquoted string "a" may clash with future reserved word at ./Main.pl line 4.
Unquoted string "z" may clash with future reserved word at ./Main.pl line 4.
./Main.pl syntax OK

Test case

Set

Set name Score得点 / Max score Cases
Sample - sample_01.txt,sample_02.txt,sample_03.txt
All 500 / 500 sample_01.txt,sample_02.txt,sample_03.txt,sample_01.txt,sample_02.txt,sample_03.txt,subtask_1_01.txt,subtask_1_02.txt,subtask_1_03.txt,subtask_1_04.txt,subtask_1_05.txt,subtask_1_06.txt,subtask_1_07.txt,subtask_1_08.txt,subtask_1_09.txt,subtask_1_10.txt,subtask_1_11.txt,subtask_1_12.txt,subtask_1_13.txt,subtask_1_14.txt,subtask_1_15.txt,subtask_1_16.txt,subtask_1_17.txt

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
sample_01.txt AC 4 ms 512 KB
sample_02.txt AC 2 ms 384 KB
sample_03.txt AC 2 ms 384 KB
subtask_1_01.txt AC 2 ms 384 KB
subtask_1_02.txt AC 39 ms 640 KB
subtask_1_03.txt AC 2 ms 384 KB
subtask_1_04.txt AC 2 ms 384 KB
subtask_1_05.txt AC 2 ms 384 KB
subtask_1_06.txt AC 2 ms 384 KB
subtask_1_07.txt AC 5 ms 512 KB
subtask_1_08.txt AC 41 ms 640 KB
subtask_1_09.txt AC 38 ms 640 KB
subtask_1_10.txt AC 39 ms 640 KB
subtask_1_11.txt AC 41 ms 640 KB
subtask_1_12.txt AC 39 ms 640 KB
subtask_1_13.txt AC 38 ms 640 KB
subtask_1_14.txt AC 37 ms 640 KB
subtask_1_15.txt AC 38 ms 640 KB
subtask_1_16.txt AC 38 ms 640 KB
subtask_1_17.txt AC 37 ms 640 KB