【克罗地亚】LAGNO

【克罗地亚】LAGNO

---

Time Limits: 910 ms Memory Limits: 524288 KB

Description
Lagno（西班牙和奥赛罗）是一种二人智力游戏。游戏设有一个黑方和一个白方。游戏桌面是正方形的，包含8行8列。
如果黑方玩家走出这样一部棋：将一枚黑子放在任一空格上，而在这个空格的八个方向（上、下、左、右和4个对角线方向）的至少一个方向上有一排白子被夹在这枚新下的黑子和其他黑子之间，任何方向，这排被新旧黑子包夹的所有的白子都要变成黑子（注意：1、被包夹有白子之间没有空格才能变；2、不能连环变，即刚变黑色的棋子不能再变色周围的棋子）。
为这个游戏设计一个程序，计算一步棋中黑方能转变的白子数量的最大值。

Input
输入8行,每行8个元素;
“.”代表一个空格;
“B”代表黑子
“W”代表白子

Output
输出一步中黑方能吃掉白子的最大数,
如果无法吃掉就输出”0”.

Sample Input

........
........
........
...BW...
...WB...
........
........
........

Sample Output
1

---

解题思路

---

直接暴力：

const
    fx:array[1..8,1..2]of integer=((0,1),(0,-1),(1,0),(-1,0),(-1,1),(-1,-1),(1,1),(1,-1));
var
    map,t:array[1..8,1..8]of char;
    i,j,ans,x:longint;
function find(p,x,y:longint):longint;
begin
    if x<1 then exit(-maxlongint);
    if x>8 then exit(-maxlongint);
    if y<1 then exit(-maxlongint);
    if y>8 then exit(-maxlongint);
    if map[x,y]='.' then exit(-maxlongint);
    if map[x,y]='B' then exit(0);
    find:=1+find(p,x+fx[p,1],y+fx[p,2]);
end;
function get(x,y:longint):longint;
    var o,z,ans:longint;
begin
    ans:=0;
    for o:=1 to 8 do
    begin
        z:=find(o,x+fx[o,1],y+fx[o,2]);
        if z>0 then ans:=ans+z;
    end;
    exit(ans);
end;
begin
    for i:=1 to 8 do
    begin
        for j:=1 to 8 do read(map[i,j]);
        readln;
    end;
    for i:=1 to 8 do
        for j:=1 to 8 do
            if map[i,j]='.' then
            begin
                x:=get(i,j);
                if x>ans then ans:=x;
            end;
    writeln(ans);
end.

出题人一定是一个爱玩游戏的