1315. 【USACO题库】5.2.1 Snail Trails蜗牛的旅行 (Standard IO)
萨丽·斯内尔(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 格遇到路障后选择另外一条路——向我们看来是左边的方向转弯,情况就不一样了。
你的任务是计算并输出,如果萨丽聪明地选择她的路线的话,她所能够经过的最多格子数。
输入的第一行包括 N ——棋盘的大小,和 B ——路障的数量(1 <= B <= 200)。接下来的 B 行包含着路障的位置信息。下面的样例输入对应着上面的示例棋盘。下面的输出文件表示问题的解答。注意,当 N 〉26 时,输入文件就不能表示 Z 列以后的路障了。
SAMPLE INPUT (file snail.in)
8 4
E2
A6
G1
F5
OUTPUT FORMAT
输出文件应该只由一行组成,即萨丽能够经过的最多格子数。
33
题目大意:
在一个N*N大小的地区中,有B个路障,蜗牛从(1,1)出发,开始时可以向任一方向走,它不走它已经走过的格子和N*N地区外的格子,碰到路障或格子边界就左转或者右转180度,直到它走不了为止,求它最多可以走多少个格子
解题方法:
对于这道题,我们直接纯暴力搜索枚举都可以过,只需要注意判断碰到边界或路障转弯时的一些细节问题,还要注意到过的点不能再到
参考程序:
var a:array[-120..120,-120..120]of 0..2;
f1:array[1..4]of longint=(-1,0,1,0);
f2:array[1..4]of longint=(0,1,0,-1);
n,m,i,x,y,max,t:longint;
s:string;
procedure dfs(x,y,t,s:longint);
var i,xx,yy,t1,t2:longint;
xxin,yyin:boolean;
begin
if s>max then max:=s;
xx:=x+f1[t];
yy:=y+f2[t];
xxin:=false;
yyin:=false;
if xx in [1..n] then xxin:=true;
if yy in [1..n] then yyin:=true;
if(xxin)and(yyin)and(a[xx,yy]=2) then exit;
if(xxin)and(yyin)and(a[xx,yy]=0) then
begin
a[xx,yy]:=2;
dfs(xx,yy,t,s+1);
a[xx,yy]:=0;
exit;
end;
if ((not(xxin)) or (not(yyin)))
or((xxin)and(yyin)and(a[xx,yy]=1))then
begin
t1:=t+1;
t2:=t-1;
if t1=5 then t1:=1;
if t2=0 then t2:=4;
xx:=x+f1[t1];
yy:=y+f2[t1];
if(xx in [1..n])and(yy in [1..n])and(a[xx,yy]=0) then
begin
a[xx,yy]:=2;
dfs(xx,yy,t1,s+1);
a[xx,yy]:=0;
end;
xx:=x+f1[t2];
yy:=y+f2[t2];
if(xx in [1..n])and(yy in [1..n])and(a[xx,yy]=0) then
begin
a[xx,yy]:=2;
dfs(xx,yy,t2,s+1);
a[xx,yy]:=0;
end;
exit;
end;
end;
begin
readln(n,m);
for i:=1 to m do
begin
readln(s);
if s[1] in ['A'..'Z'] then
begin
y:=ord(s[1])-64;
end;
delete(s,1,1);
val(s,t);
a[t,y]:=1;
end;
for i:=2 to 3 do
begin
x:=1+f1[i];
y:=1+f2[i];
if(x in [1..n])and(y in [1..n])and(a[x,y]=0) then
begin
a[x,y]:=2;
dfs(x,y,i,2);
a[x,y]:=0;
end;
end;
writeln(max);
end.