dvd的舞女

【题目描述】

众所周知，dvd是一个爱做梦的好孩子。

但是不知道为什么最近dvd总是梦到一群舞女

众所周知，dvd是一个爱琢磨的好孩子。

但是不知道为什么dvd最近一直想不明白为什么

终于dvd发现了梦境的规律，所有舞女在一个n*n的大方格上跳舞，大方格上的一些位置可以占人，其他位置不行。每时每刻都有一个舞女在一个可以占人的位置跳舞。

过一段时间，每个舞女都会对于自己前方，左方，右方三分方向看一下，如果有且仅有一个位置可以站人，她就会朝哪个方向转身并（如果是前面就不转身了）移动到那个位置，否则就会因为无路可走或者选择困难综合征挂掉。也不能有两个舞女同时出现在一个位置上（这样她们会打架）.

但是同样的，再不能站人的位置，会有一堆跳舞机器人做着和舞女同样的事情（smg?）

dvd是一个友善的好孩子，众所周知。所以dvd非常不希望看到舞女或者机器人挂掉或者打架。

Dvd是一个聪明的好孩子，众所周知。所以dvd想要知道，如果用E表示可以站立(这里有舞女)，.(英文的句点，编码46) 表示不可以站立(这里有机器人)，那么字典序第k大的合法舞台。如果合法的不存在k个，输出-1否则输出方案

【输入格式】

读入n,k

【输出格式】

如果k个及以上的方案，输出字典序第k的方案，否则输出-1

【样例输入1】

4 1

【样例输出1】

....

.EE.

.EE.

....

【样例输入2】

5 5

【样例输出2】

-1

【数据范围和约定】

对于30%的数据 n<=10

对于另外30%的数据，k<=10

对于100%的数据n<=100,k<=10^15

【解题思路】

这是大神的原创题，刚开始看我觉得是分治，再看觉得是图论，最后你告诉我是搜索，你逗我玩呢？

这个题你会发现一个问题，只有每一个点的四周总会有两个点与他相同才能满足条件，其实也很好理解，舞女或者机器人从一个方向跳过来，在跳向另一个方向，所以只要确定第一行就能确定全部，问题的关键就是如何确定第一行，老湿告诉我你只需要把k-1的二进制求出来，个数*2，然后从后往前填把1填'E'，0填‘.’，为什么？老湿告诉我我你多花几个图就知道了。。。呵呵哒，大神就是大神，不多解释

默默地贴一下代码

 program dancer;
 const dx:array[..] of longint=(,,-,);
        dy:array[..] of longint=(,,,-);
 var f:array[..,..] of longint;
       i,j,k,n:Longint;
       a:array[..] of longint;
 function cha(w:longint):longint;
 begin
     if w= then exit();
     if w= then exit();
 end;
 function pd:boolean;
 var i,j:longint;
 begin
    for i:= to n do
    for j:= to n do if f[i,j]=- then exit(false);
    exit(true);
 end;
 procedure print;
 var i,j:longint;
 begin
    for i:= to n do
    begin
        for j:= to n do write(f[i,j]);
        writeln;
    end;
    halt;
 end;

 procedure dfs(x,y:longint);
 var i,k,j,sum:longint;
 begin

     for i:= to  do
     if (x+dx[i]>=) and (dy[i]+y>=) and(y+dy[i]<=n) and(x+dx[i]<=n) and(f[x+dx[i],y+dy[i]]=-) then
     begin
         for j:= to  do
         begin
             sum:=;
             f[x+dx[i],y+dy[i]]:=j;
             for k:= to  do
             if (x+dx[k]>=) and (dy[k]+y>=) and(y+dy[k]<=n) and(x+dx[k]<=n)  then
             if f[x+dx[k],y+dy[k]]=f[x,y] then inc(sum);
             if sum> then continue else dfs(x+dx[i],dy[i]+y);
              if pd then print;
             f[x+dx[i],y+dy[i]]:=-;
         end;

     end;
 end;
 begin
     read(n,k);
     fillchar(f,sizeof(f),byte(-));
     k:=k-;
     while k> do
     begin
         inc(i);
         a[i]:=k mod ;
         k:=k div ;
     end;
     if (n mod <>) or (*i>n) then
     begin
         write('-1');
         halt;
     end;
     for j:=i downto  do
     begin
         f[,j*]:=a[j];
         f[,j*-]:=a[j];
     end;
     for i:= to n do if f[,i]=- then f[,i]:=;
         dfs(,);

     for i:= to n do
     begin
         for j:= to n do
         if f[i,j]= then write('E') else write('.');
         writeln;
     end;
 end.