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