炸僵尸

题目描述

　　妈妈得知小星星成功地解决了买玩具难题，奖励他去看电影《生化危机 6》， 小星星看 着看着就替女主角担心起来了，因为她要对付那么多的僵尸怪物，小星星恨不得扔颗炸弹消 除可恶的僵尸们，他脑袋里开始构思出这样的场景：

　　在一个 N 行 M 列单元格构成的地图中，去放置一个炸弹，这种炸弹威力巨大，以放置 点为中心进行行列延伸炸到同行同列的僵尸，但不能穿墙。上图中可以把炸弹放置在第 3 行第 4 列，最多可以炸到 4 个僵尸，如果对地图稍加改动（如下图），在第 5 行第 4 列处加 入一个墙体，又如何呢？答案还是最多炸到 4 个僵尸，只不过最佳炸弹放置点发生了变化， 应该放到第 6 行第 6 列的位置。

　　当然炸弹要靠勇敢的小星星去放，他只能在地图中朝上下左右四个方向行进（不能斜对 角移动） ，他不能穿墙，也不能穿越僵尸，要保证他的安全，如下图，告诉你小星星起始位 置是第 2 行第 2 列，那么他的最佳放置炸弹位置应该是第 3 行第 2 列，最多炸到 2 个僵尸。

　　现在请聪明的你也一起加入到消除僵尸的队伍来。

输入

　　第一行四个用空格隔开的正整数表示 N,M,X,Y，分别表示 N 行 M 列的地图，小星星起 始位置第 X 行，第 Y 列。
　　接下来 N 行 M 列用来描述地图上每个单元格，‘ G’表示僵尸，‘#’表示墙体，只有‘.’ 表示的单元格才是小星星能够正常行走，能够放置炸弹的单元格。（数据保证四面都是墙体， 也就是第 1 行、第 N 行、第 1 列、第 M 列肯定都是墙体）。

输出

一个整数，最多能炸掉的僵尸数量。

样例输入

13 13 4 2
。#############
。###..GG#GGG.#
。###.#G#G#G#G#
。#…….#..G#
。#G#.###.#G#G#
。#GG.GGG.#.GG#
。#G#.#G#.#.#.#
。#G…G…..#
。#G#.#G###.#G#
。#…G#GGG.GG#
。#G#.#G#G#.#G#
。#GG.GGG#G.GG#
。#############
(句号不读入)

样例输出

10

数据范围限制

30%的数据，保证 N,M<14，并且小星星一定能够抵达最佳炸弹放置点
40%的数据，保证 N,M<14
70%的数据，保证 N,M<101
100%的数据，保证 N,M<2001
100%的数据，保证 X

const
        fx:array[1..4,1..2]of longint=((1,0),(0,1),(-1,0),(0,-1));
var
        a:array[1..2001,1..2001]of char;
        p:array[1..2001,1..2001]of boolean;
        q:array[1..10000000,1..2]of longint;
        n,m,i,j,x,y,ans:longint;
function sum(x,y:longint):longint;//炸僵尸
var
        i:longint;
begin
        sum:=0;
        for i:=y-1 downto 1 do
        begin
                if a[x,i]='#' then break;
                if a[x,i]='G' then inc(sum);
        end;
        for i:=x-1 downto 1 do
        begin
                if a[i,y]='#' then break;
                if a[i,y]='G' then inc(sum);
        end;
        for i:=y+1 to m do
        begin
                if a[x,i]='#' then break;
                if a[x,i]='G' then inc(sum);
        end;
        for i:=x+1 to n do
        begin
                if a[i,y]='#' then break;
                if a[i,y]='G' then inc(sum);
        end;
end;
procedure bfs(x,y:longint);//宽搜
var
        l,i,t,s1,s2,x1,y1:longint;
begin
        l:=1;
        t:=1;
        q[t,1]:=x;
        q[t,2]:=y;
        repeat
                s1:=q[l,1];
                s2:=q[l,2];
                if sum(s1,s2)>ans then ans:=sum(s1,s2);
                for i:=1 to 4 do
                begin
                        x1:=s1+fx[i,1];
                        y1:=s2+fx[i,2];
                        if (a[x1,y1]='.')and(p[x1,y1]=false) then
                        begin
                                p[x1,y1]:=true;
                                inc(t);
                                q[t,1]:=x1;
                                q[t,2]:=y1;
                        end;
                end;
                inc(l);
        until (q[l,2]=0)and(q[l,1]=0);
end;
begin
        readln(n,m,x,y);
        for i:=1 to n do
        begin
                for j:=1 to m do read(a[i,j]);
                readln;
        end;
        bfs(x,y);
        writeln(ans);
end.