Submission #213439


Source Code Expand

Copy
chomp(my $X = <>);
print {A=>1, B=>2, C=>3, D=>4, E=>5}->{$X}, "\n";

Submission Info

Submission Time
Task A - A
User ktnyt
Language Perl (5.14.2)
Score 100
Code Size 69 Byte
Status AC
Exec Time 23 ms
Memory 1052 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name all
Score / Max Score 100 / 100
Status
AC × 5
Set Name Test Cases
all A.txt, B.txt, C.txt, D.txt, E.txt
Case Name Status Exec Time Memory
A.txt AC 22 ms 1048 KB
B.txt AC 22 ms 924 KB
C.txt AC 23 ms 1052 KB
D.txt AC 22 ms 1052 KB
E.txt AC 23 ms 1052 KB