题目描述 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.