【树】哈夫曼树(二)
Time Limit:1000MS Memory Limit:65536K
Total Submit:47 Accepted:30
Description
有n(n<=26)个带权结点,从a开始的n个字母分别表示这n个结点,他们分别代n个权值,试以它们为叶子结点构造一棵哈夫曼树(请按照左子树根节点的权小于等于右子树根节点的权的次序构造,若两结点相等时,按照字典顺序分别为左子树和右子树)。 最后求出该哈夫曼树的带权路径长度.
Input
第一行为一个n的值;第二行为n个字母,中间用空格分开;第三行为n个数字,分别表示着n个字母代表的数值.
Output
共计n+1行,前n行分别为按照字母表的顺序输出各个字母和编码,中间用冒号分开,第n+1行为该哈夫曼树的带权路径长度
Sample Input
Sample Output
7
a b c d e f g
3 7 8 2 5 8 4
Hint
a:1101
b:111
c:00
d:1100
e:101
f:01
g:100
100
和哈弗曼树(一)差不多,多加一个域f.ch表示该结点的字母
const
maxn=100;
type
arr=record
data,l,r,addr:longint;
ch:char;
end;
var
ans,i,j,t,n:longint;
x:char;
f,a:array[0..maxn] of arr;
p:array['a'..'z'] of string;
c:string;
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) or (a[i].data=a[j].data) and (a[i].ch>a[j].ch) then
begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
end;
end;
procedure vist(s:string;i:longint);
begin
if f[i].data=0 then exit;
vist(s+'0',f[i].l);
if (f[i].l=0) and (f[i].r=0) then p[f[i].ch]:=s;
vist(s+'1',f[i].r);
end;
begin
readln(n);
readln(c);
j:=0;
for i:=1 to length(c) do
if c[i] in ['a'..'z'] then
begin
inc(j);
a[j].ch:=c[i];
f[j].ch:=c[i];
end;
for i:=1 to n do
begin
read(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;
inc(ans,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;
a[1].ch:=chr(110+t);
a[2].ch:=a[i].ch;
a[i].ch:=chr(110+t);
inc(t);dec(i);
end;
vist('',t-1);
for x:='a' to 'z' do
if p[x]<>'' then writeln(x,':',p[x]);
writeln(ans);
end.