[USACO 2.1.5] Hamming Codes

来源：互联网发布：小资生活知乎编辑：程序博客网时间：2024/05/16 11:35

[题目描述]

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: zane2951PROG: hammingLANG: 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.