1081: [SCOI2005]超级格雷码

1081: [SCOI2005]超级格雷码

Time Limit: 10 Sec  Memory Limit: 162 MB
Submit: 301  Solved: 159
[Submit][Status][Discuss]

Description

著名的格雷码是指2n个不同n位二进制数（即0~2n-1，不足n位在前补零）的一个排列，这个排列满足相邻的两个二进制数的n位数字中最多只有一个数字不同（例如003和001就有一个数位不同，而003和030有两个数位不同，不符合条件）。例如n=2时，(00,01,11,10)就是一个满足条件的格雷码。 所谓超级格雷码就是指Bn个不同的n位B进制数的排列满足上面的条件。 任务：给出n和B（2≤B≤36, 1≤Bn≤65535），求一个满足条件的格雷码。对于大于9的数位用A~Z表示（10~35）。

Input

只有一行，为两个整数n和B。

Output

一共Bn个行，每行一个B进制数，表示你所求得的符合条件的排列

Sample Input

2 2

Sample Output

00
01
11
10

HINT

请不要提交此题...

Source

题解：弄了半天才发现原来没有spj。。。晕，不过看到网上的部分题解后还是明白咋回事了——每个数字要倒着输出

然后就是正常的生成格雷码即可

 /**************************************************************
     Problem:
     User: HansBug
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 var
    i,j,k,l,m,n:longint;
    a,b:array[..] of longint;
    list:array[..] of char;
 begin
      readln(n,m);
      for i:= to  do list[i]:=chr(+i);
      for i:= to  do list[+i]:=chr(+i);
      fillchar(a,sizeof(a),);
      for i:= to n do b[i]:=;a[]:=-;
      k:=;
      for i:= to n do k:=k*m;
      for l:= to k do
          begin
               i:=;
               while i<=n do
                     begin
                          if ((a[i]+b[i])>=m) or ((a[i]+b[i])<) then
                             begin
                                  b[i]:=-b[i];
                                  inc(i);
                             end
                          else
                              begin
                                   a[i]:=a[i]+b[i];
                                   break;
                              end;
                     end;
               for i:= to n do write(list[a[i]]);
               writeln;
          end;
      readln;
 end.