【树】哈夫曼树(一)

题目大意

给你字母的个数n，然后各个字母在电文中的出现的频率，为这n个字母设计哈夫曼编码。用二进制数表示这n个字母的编码方案．（左子树根节点的权小于等于右子树根节点的权，按中序遍历输出）

思路

此题时间复杂度为O(N^2)。

在序列中选取其根结点的权值为最小的两棵二叉树，分别作为左、右子树构造一棵新的二叉树，并置这棵新的二叉树根结点的权值为其左、右子树根结点的权值之和；从F中删去这两棵树，同时加入刚生成的新树；重复，直到F中只含一棵树为止。

代码

const
 maxn=100;
type
  arr=record
    data,l,r,ad:longint;
end;
var
  i,j,t,n:longint;
  f,a:array[0..maxn] of arr;
procedure sort(k:longint);
var
  i,j:longint;
  t:arr;
begin
  for i:=1 to k-1 do
    for j:=i+1 to k do
      if a[i].data>a[j].data then
        begin
            t:=a[i];
            a[i]:=a[j];
            a[j]:=t;
        end;
end;
procedure vist(s:string;t:longint);
begin
  if f[t].data=0 then exit;
  vist(s+'0',f[t].l);
  vist(s+'1',f[t].r);
  if (f[t].l=0)and(f[t].r=0) then
    writeln(f[t].data,':',s);
end;
begin
  readln(n);
  for i:=1 to n do
    begin
      read(a[i].data);
      f[i].data:=a[i].data;
      a[i].ad:=i;
    end;
  t:=n+1;
  i:=n;
  while i>1 do
    begin
      sort(i);
      f[t].data:=a[1].data+a[2].data;
      f[t].l:=a[1].ad;
      f[t].r:=a[2].ad;
      a[1].data:=f[t].data;
      a[1].ad:=t;
      a[2].data:=a[i].data;
      a[2].ad:=a[i].ad;
      inc(t);
      dec(i);
  end;
  vist('',t-1);
end.

#

#