jzoj 1578. 【普及模拟】N皇后 解题报告

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/forget_yu/article/details/51920834

题目描述

下图,就是一个大小为6的三角形棋盘:


图1给出的是皇后攻击范围的示例——每个皇后有三个方向可以自由攻击。

图2给出的是在一个三角形棋盘上的不能互相攻击的4个皇后。

现在,你有一个三角形棋盘,棋盘上已经放置了几个互相不能攻击的皇后,请问棋盘上最多还能放多少个皇后,使得她们仍然不能互相攻击;并求出有多少种方案可以放这么多皇后。

在输出中输出这两个数。

输入

第一行一个数字N,代表棋盘的大小。

接下来N行,第i行有i个字符。表示棋盘第i行的状态,‘.’表示空,‘*’表示有皇后。

输出

  两行,每行一个数字,分别为在原来的棋盘上最多能放的皇后数量,和放置这么多皇后的方案种数。

样例输入

2

.

..

样例输出

1

3

数据范围限制

提示

【数据范围】

1<=N<=13

代码如下: 经典搜索的进化版。。

var
 a,b,c:array[-12..20]of boolean;
 n,i,j,ans,sum,k:longint; ch:char;

procedure dfs(dep:longint);
var i,j:longint;
begin
   if k>ans then  begin ans:=k; sum:=1; end
    else if k=ans then inc(sum);
 for i:=dep to n do
  for j:=1 to i do
   if (not a[i])and(not b[j])and(not c[i-j])
    then begin
          a[i]:=true;
          b[j]:=true;
          c[i-j]:=true;
          inc(k);
          dfs(i+1);
          a[i]:=false;
          b[j]:=false;
          c[i-j]:=false;
          dec(k);
        end;
end;

begin
 assign(input,'queen.in');reset(input);
 assign(output,'queen.out');rewrite(output);
 readln(n);
 for i:=1 to n do
  begin
   for j:=1 to i do
     begin
      read(ch);
      if ch='*' then begin a[i]:=true; b[j]:=true; c[i-j]:=true; end;
     end;
    readln;
  end;
 sum:=1;
 ans:=-maxlongint;
 dfs(1);
 writeln(ans);
 writeln(sum);
 close(input);
 close(output);
end.

展开阅读全文

没有更多推荐了,返回首页