【题目描述】

众所周知,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.
05-06 13:36