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.