Submission #213507

Source Code Expand

use strict;
use warnings;

my %index = { a => 1, b => 2, c => 3, d => 4, e => 5 };
chomp(my $letter = <>);
print "$index{$letter}\n";

Submission Info

Submission Time
Task A - A
User rono_funatsu
Language Perl (5.14.2)
Score 0
Code Size 140 Byte
Status WA
Exec Time 29 ms
Memory 1196 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name all
Score / Max Score 0 / 100
Status
WA × 5
Set Name Test Cases
all A.txt, B.txt, C.txt, D.txt, E.txt
Case Name Status Exec Time Memory
A.txt WA 28 ms 1196 KB
B.txt WA 29 ms 1180 KB
C.txt WA 26 ms 1176 KB
D.txt WA 28 ms 1184 KB
E.txt WA 25 ms 1140 KB