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 |
|
|
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 |