[USACO 2.1.5] 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）：

因为有五个位不同，所以“海明距离”是 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

[解题思路]

很简单的裸枚...观Matrix67牛的Bo有感，加了个位运算优化，全部秒杀无压力...

[Code]

{
ID: zane2951
PROG: hamming
LANG: PASCAL
}

program hamming;
var
   q:array[0..111] of longint;
   n,b,d,top,i,j:longint;
   ko:boolean;

//----------dis------------
function dis(a,b:longint):longint;
var
   ce,p:longint;

begin
   dis:=0; ce:=a xor b;
   while ce>0 do
      begin p:=ce and -ce; ce:=ce-p; inc(dis); end;
end;

//----------main-----------
begin
   assign(input,'hamming.in'); reset(input);
   assign(output,'hamming.out'); rewrite(output);
   readln(n,b,d); top:=0;
   for i:=0 to 1<<b-1 do
      begin
         ko:=true;
         for j:=1 to top do if dis(q[j],i)<d then begin ko:=false; break; end;
         if ko then begin inc(top); q[top]:=i; end;
         if top=n then break;
      end;
   for i:=1 to top-1 do
      if i mod 10=0 then writeln(q[i]) else write(q[i],'':1);
   writeln(q[top]);
   close(input); close(output);
end.