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

最新推荐文章于 2021-10-04 18:53:59 发布

jz_terry

最新推荐文章于 2021-10-04 18:53:59 发布

阅读量2.1k

点赞数 2

文章标签： usaco题库

本文链接：https://blog.csdn.net/jz_terry/article/details/52234411

版权

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

OUTPUT FORMAT

输出文件应该只由一行组成，即萨丽能够经过的最多格子数。

题目大意：

在一个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.