棋盘问题

[题目描述]
在一个给定形状的棋盘(形状可能是不规则的)上面摆放棋子,棋子没有区别。要求摆放时任意的两个棋子不能放在棋盘中的同一行或者同一列,请编程求解对于给定形状和大小的棋盘,摆放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.
阅读更多
个人分类: 搜索
上一篇输出前M个字母中任取N个的所有组合情况
下一篇全排列问题
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭