【洛谷 1219】八皇后

问题描述
使得每行、每列有且只有一个，每条对角线(包括两条主对角线的所有平行线)上至多有一个棋子。请编一个程序找出所有跳棋放置的解。并把它们以上面的序列方法输出。解按字典顺序排列。请输出前3个解。最后一行是解的总个数。
样例输入
6
样例输出
2 4 6 1 3 5
3 6 2 5 1 4
4 1 5 2 6 3
4
算法讨论
比较经典的搜索题，数据也很小，直接暴搜就好了。

const
  maxn=100;
var
  a,l1,l2,d:array[-maxn..maxn] of longint;
  i,j,n,s:longint;

procedure dfs(dep:longint);
var
  i,j:longint;
begin
  if dep>n
    then begin
           if (a[dep-1]<>0) and (s<3)
             then begin
                    for i:=1 to n do
                      write(a[i],' ');
                    writeln;
                  end;
           if a[dep-1]<>0
             then inc(s);
           exit
         end;
  for i:=1 to n do
    if (d[i]=0) and (l1[dep-i]=0) and (l2[dep+i]=0)
      then begin
             d[i]:=1;
             l1[dep-i]:=1;
             l2[dep+i]:=1;
             a[dep]:=i;
             dfs(dep+1);
             d[i]:=0;
             l1[dep-i]:=0;
             l2[dep+i]:=0;
             a[dep]:=0
           end;
end;

begin
  read(n);
  dfs(1);
  write(s)
end.

Pixiv ID：61548898