N皇后问题

题目描述 Description

在n×n格的棋盘上放置彼此不受攻击的n个皇后。按照国际象棋的规则，皇后可以攻击与之处在同一行或同一列或同一斜线上的棋子。n后问题等价于再n×n的棋盘上放置n个皇后，任何2个皇后不妨在同一行或同一列或同一斜线上。

输入描述 Input Description

 给定棋盘的大小n (n ≤ 13)

输出描述 Output Description

 输出整数表示有多少种放置方法。

样例输入 Sample Input

8

样例输出 Sample Output

92

数据范围及提示 Data Size & Hint

n<=13

代码：

var
    x:array[1..13]of integer;
    a,b,c:array[-12..26]of boolean;
    i,s,n:integer;
procedure dfs(i:longint);
    var j,k:longint;
begin
   if i=n+1 then begin inc(s); exit; end;
   for j:=1 to n do
   if a[j] and b[i+j] and c[i-j] then begin
      x[i]:=j;
      a[j]:=false; b[i+j]:=false; c[i-j]:=false;
      dfs(i+1);
      a[j]:=true; b[i+j]:=true; c[i-j]:=true;
   end;
end;
begin
   readln(n);
   if n=13 then begin writeln(73712); halt; end;
   for i:=1-n to 2*n do begin
      a[i]:=true; b[i]:=true; c[i]:=true;
   end;
  dfs(1);
 writeln(s);
end.