Snail Trails
蜗 牛的旅行
All Ireland Contest
译 by Felicia Crazy
萨丽·斯内尔(Sally Snail,蜗牛)喜欢在 N x N 的棋盘上闲逛(1 < n < 120)。她总是从棋盘的左上角出发。棋盘上有空的格子(用“.”来表示)和 B 个路障(用“#”来表示)。下面是这种表示法的示例棋盘:
A B C D E F G H 1 S . . . . . # . 2 . . . . # . . . 3 . . . . . . . . 4 . . . . . . . . 5 . . . . . # . . 6 # . . . . . . . 7 . . . . . . . . 8 . . . . . . . .
萨丽总是垂直(向上或者向下)或水平(向左或者向右)地走。她可以从出发地(总是记作 A1 )向下或者向右走。
一旦萨丽选定了一个方向,她就会一直走下去。如果她遇到棋盘边缘或者路 障,她就停下来,并且转过 90 度。她不可能离开棋盘,或者走进路障当中。并且,萨丽从不跨过她已经经过的格子。当她再也不能走的时候,她就停止散步。
这里是上面的棋盘上的一次散步路线图示:
A B C D E F G H 1 S---------+ # . 2 . . . . # | . . 3 . . . . . | . . 4 . . . . . +---+ 5 . . . . . # . | 6 # . . . . . . | 7 +-----------+ | 8 +-------------+
萨丽向右走,再向下,向右,向下,然后向左,再向上,最后向右走。这时她遇到了一 个她已经走过的格子,她就停下来了。但是,如果她在 F5 格遇到路障后选择另外一条路——向我们看来是左边的方向转弯,情况就不一样了。
你的任务是计算并输出,如果萨丽聪明地选择她的路线的话,她所能够经过的 最多格子数。
PROGRAM NAME: snail
INPUT FORMAT
输入的第一行包括 N ——棋盘的大小,和 B ——路障的数量(1 <= B <= 200)。接下来的 B 行包含着路障的位置信息。下面的样例输入对应着上面的示例棋盘。下面的输出文件表示问题的解答。注意,当 N 〉26 时,输入文件就不能表示 Z 列以后的路障了。
SAMPLE INPUT (file snail.in)8 4 E2 A6 G1 F5
OUTPUT FORMAT
输出文件应该只由一行组成,即萨丽能够经过的最多格子数。
SAMPLE OUTPUT (file snail.out)
33
简单的暴力dfs题目
但因为一个小问题检查了1个多小时
读入的时候不知道脑子怎么想的用字符串读
以为只有两个数么。。。。
这样居然也有45分。。。。
然后我就以为是自己程序写跪了
然后各种找题解各种改还是各种45分。。。
崩溃了之后突然发现是这么一个nc错误。。。。。。。
var n,i,j,n1,a1,b1,tot,max,kk:longint;
ch:char;
map:array[0..121,0..121]of longint;
f:array[0..121,0..121]of boolean;
x1,y1:array[1..4]of longint;
procedure dfs(x,y,k:longint);
var xk,yk,i,j:longint;
begin
if max<tot then max:=tot;
if f[x+x1[k],y+y1[k]]=true then exit;
if (map[x+x1[k],y+y1[k]]=0)and(not(f[x+x1[k],y+y1[k]])) then
begin
inc(tot);
f[x+x1[k],y+y1[k]]:=true;
dfs(x+x1[k],y+y1[k],k);
dec(tot);
f[x+x1[k],y+y1[k]]:=false;
end
else
begin
if k=4 then begin xk:=1;yk:=1;end
else begin xk:=k+1;yk:=k+1; end;
if (map[x+x1[xk],y+y1[yk]]=0)and(not(f[x+x1[xk],y+y1[yk]])) then
begin
inc(tot);
f[x+x1[xk],y+y1[yk]]:=true;
dfs(x+x1[xk],y+y1[yk],xk);
dec(tot);
f[x+x1[xk],y+y1[yk]]:=false;
end;
if k=1 then begin xk:=4;yk:=4;end
else begin xk:=k-1;yk:=k-1; end;
if (map[x+x1[xk],y+y1[yk]]=0)and(not(f[x+x1[xk],y+y1[yk]])) then
begin
inc(tot);
f[x+x1[xk],y+y1[yk]]:=true;
dfs(x+x1[xk],y+y1[yk],xk);
dec(tot);
f[x+x1[xk],y+y1[yk]]:=false;
end;
end;
end;
procedure work;
var i,j:longint;
begin
fillchar(f,sizeof(f),false);
x1[1]:=0;y1[1]:=1;
x1[2]:=1;y1[2]:=0;
x1[3]:=0;y1[3]:=-1;
x1[4]:=-1;y1[4]:=0;
tot:=0;max:=0;
f[1,1]:=true;
dfs(1,1,1);
fillchar(f,sizeof(f),false);
tot:=0;
f[1,1]:=true;
dfs(1,1,2);
writeln(max+1);
end;
begin
for i:=0 to 121 do for j:=0 to 121 do map[i,j]:=1;
readln(n,n1);
for i:=1 to n do for j:=1 to n do map[i,j]:=0;
for i:=1 to n1 do
begin
readln(ch,kk);
b1:=ord(ch)-64;
map[b1,kk]:=1;
end;
work;
end.