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.