棋盘问题

题目描述

在一个给定形状的棋盘（形状可能是不规则的）上面摆放棋子，棋子没有区别。要求摆放时任意的两个棋子不能放在棋盘中的同一行或者同一列，请编程求解对于给定形状和大小的棋盘，摆放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.