Submission #5803117


Source Code Expand

($h,$w)=glob<>;
@A=(A..Z);
for(1..$h){
    $s=<>;
    if(($t=index($s,snuke))>-1){
        $t/=6;
        print $A[$t],$_
    }
}

Submission Info

Submission Time
Task A - Where's Snuke?
User icu
Language Perl (v5.18.2)
Score 100
Code Size 137 Byte
Status AC
Exec Time 5 ms
Memory 768 KB

Compile Error

Unquoted string "snuke" may clash with future reserved word at ./Main.pl line 5.
Name "main::w" used only once: possible typo at ./Main.pl line 1.
./Main.pl syntax OK

Judge Result

Set Name sample all
Score / Max Score 0 / 0 100 / 100
Status
AC × 2
AC × 11
Set Name Test Cases
sample sample-01.txt, sample-02.txt
all sample-01.txt, sample-02.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, sample-01.txt, sample-02.txt
Case Name Status Exec Time Memory
01-01.txt AC 5 ms 768 KB
01-02.txt AC 5 ms 768 KB
01-03.txt AC 5 ms 768 KB
01-04.txt AC 5 ms 768 KB
01-05.txt AC 5 ms 768 KB
01-06.txt AC 5 ms 768 KB
01-07.txt AC 5 ms 768 KB
sample-01.txt AC 5 ms 768 KB
sample-02.txt AC 5 ms 768 KB