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

1578. 【普及模拟】N皇后 
(File IO): input:queen.in output:queen.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

下图，就是一个大小为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.