【树】哈夫曼树(二)

【树】哈夫曼树(二)

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＋１行，前n行分别为按照字母表的顺序输出各个字母和编码，中间用冒号分开，第n＋１行为该哈夫曼树的带权路径长度

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.