jzoj_3383_太鼓达人
Description
七夕祭上,Vani牵着cl的手,在明亮的灯光和欢乐的气氛中愉快地穿行。这时,在前面忽然出现了一台太鼓达人机台,而在机台前坐着的是刚刚被精英队伍成员XLk、Poet_shy和lydrainbowcat拯救出来的的applepi。看到两人对太鼓达人产生了兴趣,applepi果断闪人,于是cl拿起鼓棒准备挑战。然而即使是在普通难度下,cl的路人本性也充分地暴露了出来。一曲终了,不但没有过关,就连鼓都不灵了。Vani十分过意不去,决定帮助工作人员修鼓。
鼓的主要元件是M个围成一圈的传感器。每个传感器都有开和关两种工作状态,分别用1和0表示。显然,从不同的位置出发沿顺时针方向连续检查K个传感器可以得到M个长度为K的01串。Vani知道这M个01串应该是互不相同的。而且鼓的设计很精密,M会取到可能的最大值。现在Vani已经了解到了K的值,他希望你求出M的值,并给出字典序最小的传感器排布方案。
Input
一个整数K。
Output
一个整数M和一个二进制串,由一个空格分隔。表示可能的最大的M,以及字典序最小的排布方案,字符0表示关,1表示开。你输出的串的第一个字和最后一个字是相邻的。
Solutions
暴力出解
代码
var
n:longint;
ha,a,f:array [0..5111] of longint;
procedure able;
var
i:longint;
begin
a[0]:=1;
for i:=1 to n do
a[i]:=a[i-1]*2;
fillchar(ha,sizeof(ha),255);
ha[0]:=0;
write(a[n],' ');
end;
procedure search(x:longint);
var
i,num,t:longint;
begin
if x=a[n] then
begin
num:=f[a[n]]*a[n];
for i:=n-1 downto 1 do
num:=num+f[i]*(n-i-1);
if ha[num]<>-1 then exit;
for i:=1 to a[n] do
write(f[i]);
halt;
end;
num:=0;
for i:=x+1 downto x-n+2 do
num:=num+f[i]*a[x+1-i];
if ha[num]=-1 then
begin
ha[num]:=num;
search(x+1);
ha[num]:=-1;
end;
num:=num+1;
if ha[num]=-1 then
begin
f[x+1]:=1; ha[num]:=num;
search(x+1);
f[x+1]:=0; ha[num]:=-1;
end;
end;
begin
readln(n);
able;
search(n);
end.