jzoj 1149. 【克罗地亚】LAGNO

1149. 【克罗地亚】LAGNO (Standard IO)

时间限制:  910 ms  空间限制:  65536 KB  具体限制  

题目描述

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

八个方向搜索，搜到白子就加一，搜到黑子就退出。

代码：

const
  dx:array[1..8] of longint=(-1,-1,0,1,1,1,0,-1);
  dy:array[1..8] of longint=(0,1,1,1,0,-1,-1,-1);
var
  s:array[0..8,0..8] of char;
  i,j,k,max,p,ans:longint;

procedure init;
var
  i,j:longint;
begin
  for i:=1 to 8 do
    begin
      for j:=1 to 8 do
        read(s[i,j]);
      readln;
    end;
end;

function dfs(i,x,y:longint):longint;
begin
  if (x<1) or (x>8) or (y<1) or (y>8) or (s[x,y]='.') then exit(-maxlongint); if (s[x,y]='B')
    then exit(0);
  dfs:=dfs(i,x+dx[i],y+dy[i])+1;
end;

begin
  init;
  for i:=1 to 8 do
    for j:=1 to 8 do
     begin
       for k:=1 to 8 do
        if s[i,j]='.'
          then begin  p:=dfs(k,i+dx[k],j+dy[k]); if p>0 then ans:=ans+p; end;
      if ans>max then max:=ans;
      ans:=0;
     end;
  writeln(max);
end.