1611: [Usaco2008 Feb]Meteor Shower流星雨

Description

去年偶们湖南遭受N年不遇到冰冻灾害，现在芙蓉哥哥则听说另一个骇人听闻的消息： 一场流星雨即将袭击整个霸中，由于流星体积过大，它们无法在撞击到地面前燃烧殆尽， 届时将会对它撞到的一切东西造成毁灭性的打击。很自然地，芙蓉哥哥开始担心自己的 安全问题。以霸中至In型男名誉起誓，他一定要在被流星砸到前，到达一个安全的地方 （也就是说，一块不会被任何流星砸到的土地）。如果将霸中放入一个直角坐标系中， 芙蓉哥哥现在的位置是原点，并且，芙蓉哥哥不能踏上一块被流星砸过的土地。根据预 报，一共有M颗流星(1 <= M <= 50,000)会坠落在霸中上，其中第i颗流星会在时刻 T_i (0 <= T_i <= 1,000)砸在坐标为(X_i, Y_i) (0 <= X_i <= 300；0 <= Y_i <= 300) 的格子里。流星的力量会将它所在的格子，以及周围4个相邻的格子都化为焦土，当然 芙蓉哥哥也无法再在这些格子上行走。芙蓉哥哥在时刻0开始行动，它只能在第一象限中， 平行于坐标轴行动，每1个时刻中，她能移动到相邻的（一般是4个）格子中的任意一个， 当然目标格子要没有被烧焦才行。如果一个格子在时刻t被流星撞击或烧焦，那么芙蓉哥哥 只能在t之前的时刻在这个格子里出现。请你计算一下，芙蓉哥哥最少需要多少时间才能到 达一个安全的格子。

Input

* 第1行: 1个正整数：M * 第2..M+1行: 第i+1行为3个用空格隔开的整数：X_i，Y_i，以及T_i

Output

输出1个整数，即芙蓉哥哥逃生所花的最少时间。如果芙蓉哥哥无论如何都无法在流星雨中存活下来，输出-1

Sample Input

Sample Output

HINT

Source

Silver

题解：刷了这么久的bzoj才发现原来第7页还有这么一道大水题。。。感觉自己弱弱哒

直接BFS搞定

 1 /**************************************************************
 2     Problem: 1611
 3     User: HansBug
 4     Language: Pascal
 5     Result: Accepted
 6     Time:140 ms
 7     Memory:2976 kb
 8 ****************************************************************/
 9  
10  
11 const di:array[1..4,1..2] of longint=((1,0),(-1,0),(0,1),(0,-1));
12 var
13    i,j,k,l,m,n,x,y,a1,a2,a3,a4,f,r:longint;
14    a,b:array[-1..500,-1..500] of longint;
15    d:array[0..100000,1..2] of longint;
16 begin
17      fillchar(a,sizeof(a),0);
18      fillchar(b,sizeof(b),0);
19      readln(m);
20      for i:=1 to m do
21          begin
22               readln(j,k,l);inc(l);
23               if (b[j-1,k]=0) or (b[j-1,k]>l) then b[j-1,k]:=l;
24               if (b[j+1,k]=0) or (b[j+1,k]>l) then b[j+1,k]:=l;
25               if (b[j,k-1]=0) or (b[j,k-1]>l) then b[j,k-1]:=l;
26               if (b[j,k+1]=0) or (b[j,k+1]>l) then b[j,k+1]:=l;
27               if (b[j,k]=0) or (b[j,k]>l) then b[j,k]:=l;
28          end;
29      f:=1;r:=2;d[1,1]:=0;d[1,2]:=0;a[0,0]:=1;
30      if b[0,0]<=1 then
31         begin
32              writeln(-1);
33              halt;
34         end;
35      while fdo
36            begin
37                 for i:=1 to 4 do
38                     begin
39                          x:=d[f,1]+di[i,1];
40                          y:=d[f,2]+di[i,2];
41                          if (x<0) or (y<0) then continue;
42                          if (a[x,y]=0) and (((a[d[f,1],d[f,2]]+1)or (b[x,y]=0)) then
43                             begin
44                                  a[x,y]:=a[d[f,1],d[f,2]]+1;
45                                  if b[x,y]=0 then
46                                     begin
47                                          writeln(a[x,y]-1);
48                                          halt;
49                                     end;
50                                  d[r,1]:=x;d[r,2]:=y;
51                                  inc(r);
52                             end;
53                     end;
54                 inc(f);
55            end;
56      writeln(-1);
57 end.