USACO/checker

 

Translate:USACO/checker

来自"NOCOW"

跳转到: 导航, 搜索

Checker Challenge 跳棋的挑战

[编辑] 描述

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

         列号
     1 2 3 4 5 6
-------------------------
1 | | O | | | | |
-------------------------
2 | | | | O | | |
-------------------------
3 | | | | | | O |
-------------------------
4 | O | | | | | |
-------------------------
5 | | | O | | | |
-------------------------
6 | | | | | O | |
-------------------------

上面的布局可以用序列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的帐号将被无警告删除

[编辑] 格式

PROGRAM NAME: checker

INPUT FORMAT:

(checker.in)

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

OUTPUT FORMAT:

(checker.out)

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

[编辑] SAMPLE INPUT

6 

[编辑] SAMPLE OUTPUT

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

来自" http://www.nocow.cn/index.php/Translate:USACO/checker"

 

{

ID:qq397471

PROG:checker

LANG: PASCAL

}
var a,b,c,d:array[-200..200] of boolean;
ans:array[0..1000] of longint;
n,m,i,j,k,sum:longint;
procedure p;
var i:longint;
begin
 inc(sum);
 if sum>3 then exit;
 for i:=1 to n do
  if i<n then
  write(ans[i],' ')
  else write(ans[i]);
 writeln;
end;
procedure f(x:longint);
var i,j:longint;
begin
 if sum>3 then exit;
 for i:=1 to n do
  if not b[i] and not c[x+i] and not d[x-i] then
   begin
    b[i]:=true; c[x+i]:=true; d[x-i]:=true;
    ans[x]:=i;
    if x=n then p else f(x+1);
    b[i]:=false; c[x+i]:=false; d[x-i]:=false;
   end;
end;
procedure test(row,ld,rd:longint);
var pos,p:longint;
begin
 if row<>k then
 begin
  pos:=k and not (row or ld or rd);
  while pos<>0 do
   begin
    p:=pos and -pos;
    pos:=pos-p;
    test(row+p,(ld+p) shl 1,(rd+p) shr 1);
   end;
 end
 else inc(sum);
end;
begin
 assign(input,'checker.in'); assign(output,'checker.out');
 reset(input); rewrite(output);
 readln(n);
 f(1);
 sum:=0;
 k:=1 shl n-1;
 test(0,0,0);
 writeln(sum);
 close(input); close(output);
end.