关闭

棋盘问题

175人阅读 评论(0) 收藏 举报
分类:

[题目描述]
在一个给定形状的棋盘(形状可能是不规则的)上面摆放棋子,棋子没有区别。要求摆放时任意的两个棋子不能放在棋盘中的同一行或者同一列,请编程求解对于给定形状和大小的棋盘,摆放k个棋子的所有可行的摆放方案C。
[输入]
输入含有多组测试数据。
每组数据的第一行是两个正整数n和k,用一个空格隔开,表示了将在一个n*n的矩阵内描述棋盘,以及摆放棋子的数目。(n<=8,k<=n)
当n和k均为-1时表示输入结束。
随后的n行描述了棋盘的形状:每行有n个字符,其中 * 表示棋盘区域, . 表示空白区域(数据保证不出现多余的空白行或者空白列)。
[输出]
对于每一组数据,给出一行输出,输出摆放的方案数目C(数据保证C<2^31)。
[样例输入]
2 1
*.
.#
4 4
…*
..*.
.*..
*…
-1 -1
[样例输出]
2
1
[参考程序]

type node=record
       x,y:longint;
       father:longint;
     end;
var state:array[1..500]of node;
    n,k,i,j,head,tail,q:longint;
    a:array[1..500,1..500]of char;
    sum,sun:longint;
    v:array[1..500]of boolean;
procedure dfs(x:longint);
var i,j,p,w:longint;
begin
  if sun=k then
    begin
      sum:=sum+1;
      exit;
    end;
  for i:=1 to n do
    begin
      if (a[x,i]<>'.') and (v[i]=true) then
       begin
         w:=0;
         v[i]:=false;
         sun:=sun+1;
         if sun=k then begin
           sum:=sum+1;
           //continue;
           w:=-10000
           end;
           for p:=1 to n-x-k+sun+w+1  do
             //begin
               //writeln(x,x+p);
             dfs(x+p);
          // end;
         v[i]:=true;
         sun:=sun-1;
       end;
    end;
  end;
begin
  readln(n,k);
  while (n<>-1) and (k<>-1) do
     begin
       for i:=1 to n do
         begin
           for j:=1 to n do
             read(a[i,j]);


             readln;
         end;
     sum:=0;
     fillchar(v,sizeof(v),true);
     for q:=1 to n-k+1 do
       dfs(q);
     writeln(sum);
     readln(n,k);
  end;
end.
0
0

猜你在找
【直播】机器学习&数据挖掘7周实训--韦玮
【套餐】系统集成项目管理工程师顺利通关--徐朋
【直播】3小时掌握Docker最佳实战-徐西宁
【套餐】机器学习系列套餐(算法+实战)--唐宇迪
【直播】计算机视觉原理及实战--屈教授
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之矩阵--黄博士
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之凸优化--马博士
【套餐】Javascript 设计模式实战--曾亮
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:10961次
    • 积分:356
    • 等级:
    • 排名:千里之外
    • 原创:24篇
    • 转载:0篇
    • 译文:0篇
    • 评论:2条
    文章分类
    最新评论