JZOJ1315.【USACO题库】5.2.1 Snail Trails蜗牛的旅行

题目描述

萨丽·斯内尔（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

输入

输出

样例输入

样例输出

数据范围限制

思路：

usaco第五部分水题是挺多的……

正解dfs

不用bfs的原因是空间会爆炸（这个自己想想，分叉会出现太多种情况了，数组装不下）

其实这道题还有个因吹斯听的东西：

注意，当 N 〉26 时，输入文件就不能表示 Z 列以后的路障了。

这个告诉我们路障最多只有26列。神奇……

然后，我们从[1，1]点开始dfs，每次更新答案，如果当前累加的tot＞ans then ans：=tot

当下一格以前走过就return，是边缘或者障碍就改变方向往两边dfs（当然如果两边都走过也return）

然后……就没了，妥妥AC

注：从开始码到AC才花了我二十分钟……这……很无语……

代码：

const
fx:array[0..3,1..2]of longint=
((0,1),(1,0),(0,-1),(-1,0));
var
a,bz:array[0..120,0..120]of boolean;
n,m,i,j,x,y,ans:longint;
s:string;
procedure dfs(x,y,tot,way:longint);//way的值：0向左，1向下，2向右，3向上
var
i,j,k:longint;
label lab;
begin
if tot>ans then
ans:=tot;
i:=x+fx[way,1];
j:=y+fx[way,2];
if (i>=1)and(i<=n)and(j>=1)and(j<=n) then
begin
if not bz[i,j]then goto lab;
if not a[i,j]then exit;
a[i,j]:=false;
dfs(i,j,tot+1,way);
a[i,j]:=true;
exit;
end
else
begin
lab:;
case way of
0,2:begin
i:=x+1;
j:=y;
if (i>=1)and(i<=n)and(j>=1)and(j<=n) then
begin
if bz[i,j] and a[i,j] then
begin
a[i,j]:=false;
dfs(i,j,tot+1,1);
a[i,j]:=true;
end;
end;
i:=x-1;
j:=y;
if (i>=1)and(i<=n)and(j>=1)and(j<=n)then
begin
if bz[i,j] and a[i,j] then
begin

f656
a[i,j]:=false;
dfs(i,j,tot+1,3);
a[i,j]:=true;
end;
end;
end;
else begin
i:=x;
j:=y+1;
if (i>=1)and(i<=n)and(j>=1)and(j<=n)then
begin
if bz[i,j] and a[i,j] then
begin
a[i,j]:=false;
dfs(i,j,tot+1,0);
a[i,j]:=true;
end;
end;
i:=x;
j:=y-1;
if (i>=1)and(i<=n)and(j>=1)and(j<=n) then
begin
if bz[i,j] and a[i,j] then
begin
a[i,j]:=false;
dfs(i,j,tot+1,2);
a[i,j]:=true;
end;
end;
end;
end;
end;
end;
begin
//assign(input,'readin.pas');reset(input);
readln(n,m);
fillchar(bz,sizeof(bz),true);
for i:=1 to m do
begin
readln(s);
y:=ord(s[1])-64;
val(copy(s,2,length(s)-1),x);
bz[x,y]:=false;
end;
fillchar(a,sizeof(a),true);
a[1,1]:=false;
dfs(1,1,1,0);
fillchar(a,sizeof(a),true);
a[1,1]:=false;
dfs(1,1,1,1);
writeln(ans);
end.

后注：

中间我为了省码字时间用了goto语句

然后整个code就变得奇奇怪怪了