N皇后问题

最新推荐文章于 2023-05-07 17:20:17 发布

weixin_34075551

最新推荐文章于 2023-05-07 17:20:17 发布

阅读量85

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/kairos2000/p/4783331.html

题目描述 Description

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

输入描述 Input Description

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

输出描述 Output Description

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

样例输入 Sample Input

样例输出 Sample Output

数据范围及提示 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.