【题目描述】
众所周知，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.