poj1321棋盘问题{wa}

var

  n,k,i,j,ans:longint;

  vx,vy:array[1..8] of boolean;

  map:array[1..8,1..8] of char;

procedure dfs(x,y,now:longint);

var

  j,l:integer;

begin

  if now=k then inc(ans)

  else

    begin

      for i:=x+1 to n do

        for j:=1 to n do

          if (map[i,j]='#')and(not vx[i])and(not vy[j])then

            begin

              vx[i]:=true;

              vy[j]:=true;

              dfs(i,j,now+1);

              vx[i]:=false;

              vy[j]:=false;

            end;

    end;

end;

begin

  while true do

  begin

  readln(n,k);

  if (n=-1) and (k=-1) then halt;

  for i:=1 to n do

    begin

      for j:=1 to n do

        read(map[i,j]);

      readln;

    end;

  fillchar(vx,sizeof(vx),false);

  fillchar(vy,sizeof(vy),false);

  ans:=0;

  for i:=1 to n-k+1 do

    for j:=1 to n do

      if map[i,j]='#' then

        begin

          vx[i]:=true;

          vy[j]:=true;

          dfs(i,j,1);

          vx[i]:=false;

          vy[j]:=false;

        end;

  writeln(ans);

  end;

end.