【树】哈夫曼树(一)

【树】哈夫曼树(一)

Time Limit:1000MS  Memory Limit:65536K
Total Submit:80 Accepted:50

Description

假设用于通信的电文仅由8个字母组成，字母在电文中出现的频率分别为7、19、2、6、32、3、21、10。试为这8个字母设计哈夫曼编码。如果用二进制数表示这8个字母的编码方案．（请按照左子树根节点的权小于等于右子树根节点的权的次序构造）

Input

第一行为字母的个数n； 
第二行至第n+1行分别为各个字母在电文中出现的频率； 

Output

按照中序遍历输出各个编码

Sample Input

8
7
19
2
6
32
3
21
10

Sample Output

19:00
21:01
2:10000
3:10001
6:1001
7:1010
10:1011
32:11

假设用数组F来存储哈夫曼树，其中第i个数组元素F[i]是哈夫曼树中的一个结点，其地址为i，有3个域，Data域存放该结点的权值，

lChild域和rChild域分别存放该结点左、右子树的根结点的地址（下标）。在初始状态下： F[i].Data=Wi，F[i].lChild=F[i].rChild=0，i=1,2,…,n。 
即先构造了n个方形叶子。在以后每步构造一棵新二叉树时，都需要对森林中所有二叉树的根结点进行排序，

因此可用数组a作为排序暂存空间，其中第i个数组元素a[i]是森林F中第i棵二叉树的根结点，有2个域，Data是根结点所对应的权值，

Addr是根结点在F中的地址（下标）。在初始状态下：a[i].Data=Wi，a[i].Addr=i，i=1,2,…n。 

const
  maxn=100;
type
  arr=record
    data:longint;
    l,r:longint;
    addr:longint;
  end;
var
  i,j,t,n:longint;
  f,a,b:array[0..maxn] of arr;


procedure sort(k:longint);
var
  i,j:longint;
begin
  for i:=1 to k-1 do
    for j:=i+1 to k do
      if a[i].data>a[j].data then
        begin
          a[0]:=a[i];
          a[i]:=a[j];
          a[j]:=a[0];
        end;
end;


procedure vist(ans:string;t:longint);
begin
  if f[t].data=0 then exit;
  vist(ans+'0',f[t].l);
  vist(ans+'1',f[t].r);
  if f[t].l=0 then writeln(f[t].data,':',ans);
end;


begin
  readln(n);
  for i:=1 to n do
    begin
      readln(a[i].data);
      f[i].data:=a[i].data;
      a[i].addr:=i;
    end;
  i:=n;
  t:=n+1;
  while i>1 do
    begin
      sort(i);
      f[t].data:=a[1].data+a[2].data;
      f[t].l:=a[1].addr;
      f[t].r:=a[2].addr;
      a[1].data:=f[t].data;
      a[1].addr:=t;
      a[2].data:=a[i].data;
      a[2].addr:=a[i].addr;
      inc(t);
      dec(i);
    end;
  vist('',t-1);
end.