Anonymous user
Huffman coding: Difference between revisions
m
Minor cleanup of factor code
(Add factor example) |
m (Minor cleanup of factor code) |
||
Line 2,186:
: (huffman-tree) ( nodes -- tree )
dup rest empty?
[ first ] [
{ { weight>> <=> } } sort-by
[ rest rest ] [ first ]
Line 2,233:
: huffman ( sequence -- nodes )
H{ } clone (huffman) values
[ (huffman-tree)
! ---------------------------------
| |||