【重走普及路】【dfs】八皇后（USACO）

题目描述

检查一个如下的6 x 6的跳棋棋盘，有六个棋子被放置在棋盘上，使得每行、每列有且只有一个，每条对角线(包括两条主对角线的所有平行线)上至多有一个棋子。 

上面的布局可以用序列2 4 6 1 3 5来描述，第i个数字表示在第i行的相应位置有一个棋子，如下： 

行号 1 2 3 4 5 6 
列号 2 4 6 1 3 5 
这只是跳棋放置的一个解。请编一个程序找出所有跳棋放置的解。并把它们以上面的序列方法输出。解按字典顺序排列。请输出前3个解。最后一行是解的总个数。 

特别注意: 对于更大的N(棋盘大小N x N)你的程序应当改进得更有效。不要事先计算出所有解然后只输出(或是找到一个关于它的公式），这是作弊。如果你坚持作弊，那么你登陆USACO Training的帐号删除并且不能参加USACO的任何竞赛。我警告过你了！

输入输出格式

输入格式：

一个数字N (6 <= N <= 13) 表示棋盘是N x N大小的。

输出格式：

前三行为前三个解，每个解的两个数字之间用一个空格隔开。第四行只有一个数字，表示解的总数。

输入输出样例

输入样例#1：

6

输出样例#1：

2 4 6 1 3 5
3 6 2 5 1 4
4 1 5 2 6 3
4

说明

题目翻译来自NOCOW。

USACO Training Section 1.5

吐槽：一开始并没有看懂题目意思。。。。（对角线不只两条，是所有的斜线！！！）傻眼了好久

dfs就可以过了（听说可以用位运算？？！！）

于是。。。。。。对于13这种小数据还是可以过的（不要问我c，d数组是什么，自己想）

——2015.12.27

var n,ans:longint;
    a,b,c,d:array[1..28] of longint;
    f:array[1..14,1..14] of longint;

procedure ok(x:longint);
var i,j:longint;
begin
    if x=n+1 then begin
        if ans<3 then begin
            for i:=1 to n do write(a[i],' ');
            writeln;
        end;
        inc(ans);
    end else for i:=1 to n do if (b[i]=0)and(c[x+i]=0)and(d[x-i+n]=0) then begin
        b[i]:=1;
        a[x]:=i;
        c[x+i]:=1;
        d[x-i+n]:=1;
        ok(x+1);
        d[x-i+n]:=0;
        c[x+i]:=0;
        a[x]:=0;
        b[i]:=0;
    end;
end;

begin
    readln(n);
    ok(1);
    writeln(ans);
end.