Lagno（西班牙和奥赛罗）是一种二人智力游戏。游戏设有一个黑方和一个白方。游戏桌面是正方形的，包含8行8列。
如果黑方玩家走出这样一部棋：将一枚黑子放在任一空格上，而在这个空格的八个方向（上、下、左、右和4个对角线方向）的至少一个方向上有一排白子被夹在这枚新下的黑子和其他黑子之间，任何方向，这排被新旧黑子包夹的所有的白子都要变成黑子（注意：1、被包夹有白子之间没有空格才能变；2、不能连环变，即刚变黑色的棋子不能再变色周围的棋子）。
为这个游戏设计一个程序，计算一步棋中黑方能转变的白子数量的最大值。
如果黑方玩家走出这样一部棋：将一枚黑子放在任一空格上，而在这个空格的八个方向（上、下、左、右和4个对角线方向）的至少一个方向上有一排白子被夹在这枚新下的黑子和其他黑子之间，任何方向，这排被新旧黑子包夹的所有的白子都要变成黑子（注意：1、被包夹有白子之间没有空格才能变；2、不能连环变，即刚变黑色的棋子不能再变色周围的棋子）。
为这个游戏设计一个程序，计算一步棋中黑方能转变的白子数量的最大值。
题解：
搜索，枚举每一个点，如果周围有白点，就判断白点的尽头有没有黑点，记得八个方向，输出最大的。
注意判断边界。
代码：
function dfs(w,x,y:longint):longint;
begin
if (x<1)or(x>8)or(y<1)or(y>8)or(c[x,y]='.') then exit(-maxlongint);
if c[x,y]='B' then exit(0);
dfs:=dfs(w,x+fx[w,1],y+fx[w,2])+1
end;
function f(x,y:longint):longint;
var
s,t,i:longint;
begin
s:=0;
for i:=1 to 8 do
begin
a:=dfs(i,x+x[i,1],y+x[i,2]);
if a>0 then s:=s+a;
end;
end;
begin
if (x<1)or(x>8)or(y<1)or(y>8)or(c[x,y]='.') then exit(-maxlongint);
if c[x,y]='B' then exit(0);
dfs:=dfs(w,x+fx[w,1],y+fx[w,2])+1
end;
function f(x,y:longint):longint;
var
s,t,i:longint;
begin
s:=0;
for i:=1 to 8 do
begin
a:=dfs(i,x+x[i,1],y+x[i,2]);
if a>0 then s:=s+a;
end;
end;