穿越栅栏

最新推荐文章于 2019-05-30 19:36:30 发布

huangja

最新推荐文章于 2019-05-30 19:36:30 发布

阅读量420

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/huangja/article/details/56851971

题目描述

农夫John在外面的田野上搭建了一个巨大的用栅栏围成的迷宫。幸运的是，他在迷宫的边界上留出了两段栅栏作为迷宫的出口。更幸运的是，他所建造的迷宫是一个“完美的”迷宫：即你能从迷宫中的任意一点找到一条走出迷宫的路。
给定迷宫的宽W(1<=W<=38)及长H(1<=H<=100)。
2*H+1行，每行2*W+1的字符以下面给出的格式表示一个迷宫。然后计算从迷宫中最“糟糕”的那一个点走出迷宫所需的步数。（即使从这一点以最优的方式走向最靠近的出口，它仍然需要最多的步数）当然了，牛们只会水平或垂直地在X或Y轴上移动，他们从来不走对角线。每移动到一个新的方格算作一步（包括移出迷宫的那一步）
这是一个W=5,H=3的迷宫：

如上图的例子，栅栏的柱子只出现在奇数行或奇数列。每个迷宫只有两个出口。

PROGRAM NAME: maze1

输入

第一行： W和H（用空格隔开）
第二行至第2*H+2行：每行2*W+1个字符表示迷宫

输出

输出一个单独的整数，表示能保证牛从迷宫中任意一点走出迷宫的最小步数。

样例输入

5 3

样例输出

uses math;
var
        a,b,c,d,q1,q2,ans,ans1,i:longint;
        v:array[1..100000,1..4]of longint;
        r:array[-1..300,-1..100]of char;
        p:array[-1..300,-1..100]of boolean;
        s:array[1..300]of string;
const t:array[1..4,1..2]of longint=((-1,0),(0,-1),(1,0),(0,1));
begin
        readln(a,b);
        a:=2*a+1;
        b:=2*b+1;
        for c:=1 to b do
        begin
                readln(s[c]);
                for d:=1 to a do
                begin
                        r[c,d]:=s[c][d];
                end;
        end;
        fillchar(p,sizeof(p),true);
        for c:=1 to a do
        begin
                if (r[1,c]<>'-')and(r[1,c]<>'+')and(r[1,c]<>'|') then
                begin
                        inc(q2);
                        v[q2,1]:=2;
                        v[q2,2]:=c;
                        v[q2,3]:=1;
                        v[q2,4]:=q2;
                        p[2,c]:=false;
                end;
                if (r[b,c]<>'-')and(r[b,c]<>'+')and(r[b,c]<>'|') then
                begin
                        inc(q2);
                        v[q2,1]:=b-1;
                        v[q2,2]:=c;
                        v[q2,3]:=1;
                        v[q2,4]:=q2;
                        p[b-1,c]:=false;
                end;
        end;
        for c:=1 to b do
        begin
                if (r[c,1]<>'-')and(r[c,1]<>'+')and(r[c,1]<>'|') then
                begin
                        inc(q2);
                        v[q2,1]:=c;
                        v[q2,2]:=2;
                        v[q2,3]:=1;
                        v[q2,4]:=q2;
                        p[c,2]:=false;
                end;
                if (r[c,a]<>'-')and(r[c,a]<>'+')and(r[c,a]<>'|') then
                begin
                        inc(q2);
                        v[q2,1]:=c;
                        v[q2,2]:=a-1;
                        v[q2,3]:=1;
                        v[q2,4]:=q2;
                        p[c,a-1]:=false;
                end;
        end;
        while q1<q2 do
        begin
                inc(q1);
                for i:=1 to 4 do
                begin
                         if (r[(v[q1,1]+t[i,1]),(v[q1,2]+t[i,2])]<>'-')and
                        (r[(v[q1,1]+t[i,1]),(v[q1,2]+t[i,2])]<>'|')and
                        (r[(v[q1,1]+t[i,1]+t[i,1]),(v[q1,2]+t[i,2]+t[i,2])]<>'-')and
                        (r[(v[q1,1]+t[i,1]+t[i,1]),(v[q1,2]+t[i,2]+t[i,2])]<>'|')and
                        (p[(v[q1,1]+t[i,1]+t[i,1]),(v[q1,2]+t[i,2]+t[i,2])]=true)and
                        ((v[q1,1]+t[i,1]+t[i,1])in[1..b])and
                        ((v[q1,2]+t[i,2]+t[i,2])in[1..a]) then
                        begin
                                inc(q2);
                                v[q2,1]:=v[q1,1]+t[i,1]+t[i,1];
                                v[q2,2]:=v[q1,2]+t[i,2]+t[i,2];
                                v[q2,3]:=v[q1,3]+1;
                                v[q2,4]:=v[q1,4];
                                p[v[q2,1],v[q2,2]]:=false;
                                if v[q2,4]=1 then ans:=max(ans,v[q2,3]);
                                if v[q2,4]=2 then ans1:=max(ans1,v[q2,3]);
                        end;
                end;
        end;
        writeln(max(1,max(ans,ans1)));
end.