Checker Challenge跳棋的挑战>

最新推荐文章于 2024-04-26 08:45:00 发布

jie_guale

最新推荐文章于 2024-04-26 08:45:00 发布

阅读量571

点赞数

分类专栏： usaco 搜索 NOIP2011黎明前夕的黑暗文章标签： output input pascal training 优化

本文链接：https://blog.csdn.net/jie_guale/article/details/6847224

版权

NOIP2011黎明前夕的黑暗同时被 3 个专栏收录

223 篇文章 1 订阅

订阅专栏

搜索

36 篇文章 0 订阅

订阅专栏

usaco

30 篇文章 0 订阅

订阅专栏

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
一个数字 N (6 <= N <= 13) 表示棋盘是 N x N 大小的.
SAMPLE INPUT(checker.in)
6
OUTPUT FORMAT
前三行为前三个解,每个解的两个数字之间用一个空格隔开.第四行只有一个数字,表示解的总数.
SAMPLE OUTPUT(checker.out)
2 4 6 1 3 5
3 6 2 5 1 4
4 1 5 2 6 3
4

==============================

过的好险

-----------------------

这道题其实有个优化....

是对称的...

-----------

八皇后...

--------------------------

=====================

{
ID:jie19952
PROG:checker
LANG:PASCAL
}
var
  n:longint;
  ans_tot:longint;
  ans:array[1..13]of longint;
  bool_num,bool_l,bool_z,bool_y:array[-12..26]of boolean;
procedure init;
begin
  assign(input,'checker.in');
  assign(output,'checker.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure dfs(t:longint);
var
  i:longint;
begin
  if t=n+1 then
    begin
      inc(ans_tot);
      if ans_tot<=3 then
        begin
          for i:=1 to n-1 do write(ans[i],' ');
          writeln(ans[n]);
        end;
      exit;
    end;
  for i:=1 to n do
    if (bool_num[i])and(bool_l[i])and(bool_z[i-t])and(bool_y[i+t]) then
      begin
        bool_num[i]:=false;
        bool_l[i]:=false;
        bool_z[i-t]:=false;
        bool_y[i+t]:=false;
        ans[t]:=i;
        dfs(t+1);
        bool_num[i]:=true;
        bool_l[i]:=true;
        bool_z[i-t]:=true;
        bool_y[i+t]:=true;
      end;
end;

procedure main;
begin
  readln(n);
  fillchar(bool_num,sizeof(bool_num),true);
  fillchar(bool_l,sizeof(bool_l),true);
  fillchar(bool_z,sizeof(bool_z),true);
  fillchar(bool_y,sizeof(bool_y),true);
  ans_tot:=0;
  dfs(1);
  writeln(ans_tot);
end;

begin
  init;
  main;
  terminate;
end.