Go capture by sky

var s:char;c,r:byte;b:array[0..20,0..20]of integer;begin repeat readln(s,r);c:=ord(s)-ord(s>'I')-64;b[c,r]:=9;dec(b[c-1,r]);dec(b[c+1,r]);dec(b[c,r-1]);dec(b[c,r+1])until EOF;for c:=1 to 19 do for r:=1 to 19 do if(b[c,r]<0)then writeln(chr(c+64+ord(c>8)),r)end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page