3406: [Usaco2009 Oct]Invasion of the Milkweed 乳草的入侵
Time Limit: 3 Sec Memory Limit: 128 MBSubmit: 87 Solved: 49[][][]Description
Input
第1行：4个由空格隔开的整数X，K Mx，My.
第2到第Y+1行：每行由X个字符描述草地．
Output
一个单独的整数表示最后一个不是大石块的格子被乳草占领的星期数
Sample Input
4 3 1 1 .... ..*. .**.
Sample Output
4
HINT
Source
题解：题目本身很水，一道灌水法，BFS秒杀
但还是WA了一下，表示题目描述简直坑爹不解释，注意看清题目描述再下手（还有OI经常很良心的让你就算题目理解错了也能过样例TT）
1 /************************************************************** 2 Problem: 3406 3 User: HansBug 4 Language: Pascal 5 Result: Accepted 6 Time:20 ms 7 Memory:444 kb 8 ****************************************************************/ 9 10 const dir:array[1..8,1..2] of longint=((1,0),(-1,0),(0,1),(0,-1),(1,1),(-1,-1),(-1,1),(1,-1));11 var12 i,j,k,l,m,n,x,y,x0,y0,f,r:longint;13 a:array[0..101,0..101] of longint;14 d:array[0..15000,1..3] of longint;15 ch:char;16 begin17 readln(m,n,y,x);x:=n+1-x;18 for i:=0 to n+1 do19 begin20 a[i,m+1]:=1;21 a[i,0]:=1;22 end;23 for i:=0 to m+1 do24 begin25 a[n+1,i]:=1;26 a[0,i]:=1;27 end;28 for i:=1 to n do29 for j:=1 to m do30 begin31 read(ch);32 if ch='.' then a[i,j]:=0 else a[i,j]:=1;33 if j=m then readln;34 end;35 d[1,1]:=x;d[1,2]:=y;d[1,3]:=0;f:=1;r:=2;36 while f