jzoj 1149. 【克罗地亚】LAGNO

最新推荐文章于 2021-02-25 23:39:01 发布

coz_Indira

最新推荐文章于 2021-02-25 23:39:01 发布

阅读量769

点赞数

分类专栏：深搜

本文链接：https://blog.csdn.net/coz_Indira/article/details/52267120

版权

深搜专栏收录该内容

5 篇文章 0 订阅

订阅专栏

题目描述

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.