Submission #1310937

Source Code Expand

@S=<>=~/./g;
$%+=($#S-$i)*(1+/D/)+$i*(1+/U/),$i++for@S;
print$%,$/

Submission Info

Submission Time
Task B - Evilator
User x20
Language Perl (v5.18.2)
Score 400
Code Size 70 Byte
Status AC
Exec Time 84 ms
Memory 13952 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 400 / 400
Status
AC × 2
AC × 12
Set Name Test Cases
Sample s1.txt, s2.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, s1.txt, s2.txt
Case Name Status Exec Time Memory
01.txt AC 84 ms 13952 KB
02.txt AC 81 ms 13952 KB
03.txt AC 84 ms 13952 KB
04.txt AC 82 ms 13952 KB
05.txt AC 82 ms 13952 KB
06.txt AC 80 ms 13952 KB
07.txt AC 80 ms 13952 KB
08.txt AC 82 ms 13952 KB
09.txt AC 2 ms 384 KB
10.txt AC 2 ms 384 KB
s1.txt AC 2 ms 384 KB
s2.txt AC 2 ms 384 KB