Submission #187206


Source Code Expand

chomp(my $line = <>);
my @word = split "", $line;
my $ans = map{$_==0?uc($word[$_]):lc($word[$_])}0..$#word;
print "$ans\n";

Submission Info

Submission Time
Task B - 名前の確認
User ktnyt
Language Perl (5.14.2)
Score 0
Code Size 127 Byte
Status WA
Exec Time 24 ms
Memory 1060 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name All
Score / Max Score 0 / 100
Status
WA × 8
Set Name Test Cases
All test_AzielehadfJD.txt, test_Oq.txt, test_P.txt, test_Wi.txt, test_ZNEFzealEAkD.txt, test_aAZaz.txt, test_z.txt, test_zDkElDjNVmAq.txt
Case Name Status Exec Time Memory
sample_01.txt WA 22 ms 1060 KB
sample_02.txt WA 22 ms 940 KB
test_AzielehadfJD.txt WA 22 ms 936 KB
test_Oq.txt WA 23 ms 976 KB
test_P.txt WA 23 ms 1056 KB
test_Wi.txt WA 23 ms 884 KB
test_ZNEFzealEAkD.txt WA 23 ms 924 KB
test_aAZaz.txt WA 21 ms 1048 KB
test_z.txt WA 22 ms 1060 KB
test_zDkElDjNVmAq.txt WA 24 ms 932 KB