Submission #1546287

Source Code Expand

$_=<>;
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 AC
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 Sample All
Score / Max Score 0 / 0 500 / 500
Status
AC × 3
AC × 23
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All 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 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