tyvjp1030 乳草的入侵

P1030 - 乳草的入侵

From public    Normal (OI) 总时限：10s    内存限制：128MB

背景 Background

USACO OCT09 6TH

描述 Description

Farmer John一直努力让他的草地充满鲜美多汁的而又健康的牧草。可惜天不从人愿，他在植物大战人类中败下阵来。邪恶的乳草已经在他的农场的西北部份佔领了一片立足之地。 草地像往常一样，被分割成一个高度為Y(1 <= y <= 100), 宽度為X(1 <= x <= 100)的直角网格。(1,1)是左下角的格（也就是说坐标排布跟一般的X,Y坐标相同）。乳草一开始佔领了格(Mx,My)。每个星期，乳草传播到已被乳草佔领的格子四面八方的每一个没有很多石头的格（包括垂直与水平相邻的和对角线上相邻的格）。1周之后，这些新佔领的格又可以把乳草传播到更多的格裡面了。 Bessie想要在草地被乳草完全佔领之前尽可能的享用所有的牧草。她很好奇到底乳草要多久才能佔领整个草地。如果乳草在0时刻处於格(Mx,My)，那麼还在那个时刻它们可以完全佔领入侵整片草地呢（对给定的数据总是会发生）？ 草地由一个图片表示。"."表示草，而"*"表示大石。比如这个X=4, Y=3的例子。 .... ..*. .**. 如果乳草一开始在左下角（第1排，第1列），那麼草地的地图将会以如下态势发展： ....  ....  MMM.  MMMM  MMMM ..*.  MM*.  MM*.  MM*M  MM*M M**.  M**.  M**.  M**.  M**M 星期数  0     1     2     3     4 乳草会在4星期后佔领整片土地。

输入格式 InputFormat

* 第一行: 四个由空格隔开的整数: X, Y, Mx, My * 第2到第Y+1行: 数据的第y+1行由X个字符（"."表示草地，"*"表示大石），描述草地的 第(Y+2-y)行。

输出格式 OutputFormat

* 第一行: 一个单独的整数表示最后一个不是大石块的格子被乳草佔领的星期数。

样例输入 SampleInput [复制数据]

4 3 1 1
....
..*.
.**.

样例输出 SampleOutput [复制数据]

4

时间限制 TimeLimitation

各个测试点1s

Delphi语言: 高亮代码由发芽网提供

program tyvj1030; type node=record x,y,time:longint; end; var d:array[1..8] of  integer=(1,0,-1,0,1,-1,1,-1); l:array[1..8] of integer= (0,-1,0,1,-1,1,1,-1); a:array[0..101,0..101] of longint; q:array[1..10000] of node; head,tail,i,j,x,y,mx,my,ans:longint; k:node; ch:string; procedure push(x,y,t:longint); begin inc(head); q[head].x:=x;q[head].y:=y;q[head].time:=t; end; function pop:node; begin pop:=q[tail]; inc(tail); end; begin fillchar(a,sizeof(a),2); readln(x,y,mx,my); for j:=y downto 1 do begin readln(ch); for i:=1 to x do case ch[i] of '.':a[i,j]:=1; '*':a[i,j]:=2; end; end; a[mx,my]:=3; head:=0;tail:=1; push(mx,my,0); ans:=0; while head>=tail do begin k:=pop; if k.time>ans then ans:=k.time; for i:=1 to 8 do if a[k.x+d[i],k.y+l[i]]=1 then begin a[k.x+d[i],k.y+l[i]]:=3; push(k.x+d[i],k.y+l[i],k.time+1); end; end; writeln(ans); end.