Hamming Codes 海明码

Hamming Codes 海明码
给出 N,B 和 D:找出 N 个编码（1 <= N <= 64）,每个编码有 B 位（1 <= B <= 8）,使得两两编
码之间至少有 D 个单位的“海明距离”（1 <= D <= 7）.“海明距离”是指对于两个编码,他们的
二进制表示法中的不同二进制位的数目.看下面的两个编码 0x554 和 0x234 之间的区别（0x554
表示一个十六进制数,每个位上分别是 5,5,4）: 
        0x554 = 0101 0101 0100
        0x234 = 0010 0011 0100
  不同的二进制位: xxx  xx
因为有五个位不同,所以“海明距离”是 5. 
PROGRAM NAME: hamming
INPUT FORMAT
一行,包括 N, B, D. 
SAMPLE INPUT (file hamming.in)
16 7 3
OUTPUT FORMAT
N 个编码（用十进制表示）,要排序,十个一行.如果有多解,你的程序要输出这样的解:假如把它化
为 2^B 进制的数,它的值要最小. 
SAMPLE OUTPUT (file hamming.out)
0 7 25 30 42 45 51 52 75 76
82 85 97 102 120 127

=====================

难在对题意的理解上..

简单的位运算.

==============

 

{
ID:jie19952
PROG:hamming
LANG:PASCAL
}
var
  n,b,d:longint;
  ans:array[0..64]of longint;
  max:longint;
procedure init;
begin
  assign(input,'hamming.in');
  assign(output,'hamming.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

function pd(x,t:longint):boolean;
var
  i:longint;
  tem:longint;
  z:longint;
begin
  pd:=true;
  for i:=t-1 downto 1 do
    begin
      tem:=x xor ans[i];
      z:=0;
      while tem>0 do
        begin
          if tem and 1 =1 then inc(z);
          tem:=tem shr 1;
        end;
      if z<d then exit(false);
    end;
end;


procedure dfs(t:longint);
var
  i:longint;
begin
  if t>n then
    begin
      for i:=1 to t-2 do
        begin
          if i mod 10=0 then writeln(ans[i])
          else write(ans[i],' ');
        end;
      writeln(ans[t-1]);
      terminate;
    end;
  for i:=ans[t-1]+1 to max do
    begin
      if pd(i,t) then
        begin
          ans[t]:=i;
          dfs(t+1);
        end;
    end;
end;

procedure main;
begin
  readln(n,b,d);
  max:=1 shl b-1;
  ans[0]:=-1;
  dfs(1);
end;

begin
  init;
  main;
  terminate;
end.