CODE FESTIVAL 2016 Final

Submission #3017133

Source codeソースコード

var
 i,n,m,j,y,k,x:longint;
 s,s1:string;
begin
 readln(n,m);
 for i:=1 to n do
  begin
   readln(s);
   for j:=1 to m-1 do
    begin
     x:=pos(' ',s);
     s1:=copy(s,1,x-1);
     if s1='snuke' then begin y:=i;k:=j; end;
     delete(s,1,x);
    end;
   if s='snuke' then begin y:=i;k:=j; end;
  end;
 writeln(chr(k+64),y);
end.

Submission

Task問題 A - Where's Snuke?
User nameユーザ名 luogu_bot5
Created time投稿日時
Language言語 Pascal (FPC 2.6.2)
Status状態 AC
Score得点 100
Source lengthソースコード長 348 Byte
File nameファイル名
Exec time実行時間 0 ms
Memory usageメモリ使用量 128 KB

Compiler messageコンパイルメッセージ

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Test case

Set

Set name Score得点 / Max score Cases
sample - sample-01.txt,sample-02.txt
all 100 / 100 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
01-01.txt AC
01-02.txt AC
01-03.txt AC
01-04.txt AC
01-05.txt AC
01-06.txt AC
01-07.txt AC
sample-01.txt AC
sample-02.txt AC