1081: [SCOI2005]超级格雷码

时间:2022-05-08
本文章向大家介绍1081: [SCOI2005]超级格雷码,主要内容包括1081: [SCOI2005]超级格雷码、Description、Input、Output、Sample Input、Sample Output、HINT、Source、基本概念、基础应用、原理机制和需要注意的事项等,并结合实例形式分析了其使用技巧,希望通过本文能帮助到大家理解应用这部分内容。

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。。。晕,不过看到网上的部分题解后还是明白咋回事了——每个数字要倒着输出

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

 1 /**************************************************************
 2     Problem: 1081
 3     User: HansBug
 4     Language: Pascal
 5     Result: Accepted
 6     Time:116 ms
 7     Memory:1008 kb
 8 ****************************************************************/
 9  
10 var
11    i,j,k,l,m,n:longint;
12    a,b:array[0..100000] of longint;
13    list:array[0..35] of char;
14 begin
15      readln(n,m);
16      for i:=0 to 9 do list[i]:=chr(48+i);
17      for i:=1 to 26 do list[9+i]:=chr(64+i);
18      fillchar(a,sizeof(a),0);
19      for i:=1 to n do b[i]:=1;a[1]:=-1;
20      k:=1;
21      for i:=1 to n do k:=k*m;
22      for l:=1 to k do
23          begin
24               i:=1;
25               while i<=n do
26                     begin
27                          if ((a[i]+b[i])>=m) or ((a[i]+b[i])<0) then
28                             begin
29                                  b[i]:=-b[i];
30                                  inc(i);
31                             end
32                          else
33                              begin
34                                   a[i]:=a[i]+b[i];
35                                   break;
36                              end;
37                     end;
38               for i:=1 to n do write(list[a[i]]);
39               writeln;
40          end;
41      readln;
42 end.