Huffman coding: Difference between revisions

m
(added standard ml)
Line 532:
end
 
fun printCodes (revPrefix, (Leaf (f, c)) =
print (String.str c ^ "\t" ^ Int.toString f ^ "\t" ^
implode (rev revPrefix) ^ "\n")
| printCodes (revPrefix:char, list) (Node (_, l, r)) = (
printCodes (#"0"::revPrefix), l);
printCodes (#"1"::revPrefix), r)
);
 
Line 554:
in
print "SYMBOL\tWEIGHT\tHUFFMAN CODE\n";
printCodes ([], tree);
end</lang>
 
Anonymous user