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