SSL 1108——【USACO 2.1】海明码（DFS）

Description

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

Input

一行，包括 N, B, D。

Output

　　N 个编码（用十进制表示），要排序，十个一行。如果有多解，你的程序要输出这样的解：假如把它化为 2^B 进制的数，它的值要最小。

Sample Input

16 7 3
Sample Output

0 7 25 30 42 45 51 52 75 76
82 85 97 102 120 127

---

这题用dfs
每次暴力枚举即可

---

代码如下：

var
         n,b,d,i,j,k:longint;
         bz:boolean;
         s:string;
         a:array[0..64] of string;
         sum:array[0..64] of longint;
function jz(n:longint):string;
var
         st:array[0..8] of longint;
         i:longint;
         s:string;
begin
         i:=0;
         s:='';
         while n<>0 do
         begin
                  inc(i);
                  st[i]:=n mod 2;
                  n:=n div 2;
         end;
         for j:=i downto 1 do
                  s:=s+chr(st[j]+48);
         if length(s)<b then
                  for j:=1 to b-length(s) do
                        s:='0'+s;
         exit(s);
end;
function pd(s,s1:string):boolean;
var
         i,ans:longint;
begin
         ans:=0;
         for i:=1 to length(s) do
                  if s[i]<>s1[i] then inc(ans);
         if ans>=d then exit(true) else exit(false);
end;
begin
         readln(n,b,d);
         k:=1;
         i:=0;
         bz:=true;
         for j:=1 to b do a[1]:=a[1]+'0';
         sum[1]:=0;
         while k<>n do
         begin
                  inc(i);
                  bz:=true;
                  s:=jz(i);
                  for j:=k downto 1 do
                           if not pd(a[j],s) then
                           begin
                                    bz:=false;
                                    break;
                           end;
                  if bz then
                  begin
                           inc(k);
                           a[k]:=s;
                           sum[k]:=i;
                  end;
         end;
         for i:=1 to n do
         begin
                  write(sum[i],' ');
                  if i mod 10=0 then writeln;
         end;
end.