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: 1081
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:116 ms
    Memory:1008 kb
****************************************************************/
 
var
   i,j,k,l,m,n:longint;
   a,b:array[0..100000] of longint;
   list:array[0..35] of char;
begin
     readln(n,m);
     for i:=0 to 9 do list[i]:=chr(48+i);
     for i:=1 to 26 do list[9+i]:=chr(64+i);
     fillchar(a,sizeof(a),0);
     for i:=1 to n do b[i]:=1;a[1]:=-1;
     k:=1;
     for i:=1 to n do k:=k*m;
     for l:=1 to k do
         begin
              i:=1;
              while i<=n do
                    begin
                         if ((a[i]+b[i])>=m) or ((a[i]+b[i])<0) then
                            begin
                                 b[i]:=-b[i];
                                 inc(i);
                            end
                         else
                             begin
                                  a[i]:=a[i]+b[i];
                                  break;
                             end;
                    end;
              for i:=1 to n do write(list[a[i]]);
              writeln;
         end;
     readln;
end.