Revision as of 07:15, 8 March 2018 (view source) rosettacode>Phg (→‎{{header\|Lua}}: update description) ← Older edit		Revision as of 17:12, 13 March 2018 (view source) rosettacode>Heiko88 m (→‎{{header\|Tcl}}) Newer edit →
Line 6,044: set encoding [walkTree [$pq get]] ~~set map [dict create {*}[lreverse $encoding]]~~ if {$opts(-dump)} { foreach ~~key~~{char huffCode} [lsort -~~command~~index ~~compare~~1 ~~[dict~~-stride ~~keys~~2 -command compare $~~map]~~encoding] { ~~set~~puts "$char \t[dict get $~~map~~charcount $~~key~~char]\t$huffCode" ~~puts "$char\t[dict get $charcount $char]\t$key"~~ } } $pq destroy return $encoding

Huffman coding: Difference between revisions

Huffman coding (view source)