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