Submission #1546287


Source Code Expand

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

Submission Info

Submission Time
Task B - Reverse and Compare
User x20
Language Perl (v5.18.2)
Score 500
Code Size 85 Byte
Status
Exec Time 41 ms
Memory 640 KB

Compile Error

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

Judge Result

Set Name Score / Max Score Test Cases
Sample 0 / 0 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
Case Name Status Exec Time Memory
sample_01.txt 4 ms 512 KB
sample_02.txt 2 ms 384 KB
sample_03.txt 2 ms 384 KB
subtask_1_01.txt 2 ms 384 KB
subtask_1_02.txt 39 ms 640 KB
subtask_1_03.txt 2 ms 384 KB
subtask_1_04.txt 2 ms 384 KB
subtask_1_05.txt 2 ms 384 KB
subtask_1_06.txt 2 ms 384 KB
subtask_1_07.txt 5 ms 512 KB
subtask_1_08.txt 41 ms 640 KB
subtask_1_09.txt 38 ms 640 KB
subtask_1_10.txt 39 ms 640 KB
subtask_1_11.txt 41 ms 640 KB
subtask_1_12.txt 39 ms 640 KB
subtask_1_13.txt 38 ms 640 KB
subtask_1_14.txt 37 ms 640 KB
subtask_1_15.txt 38 ms 640 KB
subtask_1_16.txt 38 ms 640 KB
subtask_1_17.txt 37 ms 640 KB