(canonize-codes) ( current codes -- codes )


Vocabulary
compression.huffman.private

Inputs
currentan object
codesan object


Outputs
codesan object


Definition
USING: kernel sequences vectors ;

IN: compression.huffman.private

: (canonize-codes) ( current codes -- codes )
dup empty?
[ 2drop V{ } clone ] [
dup first pick get-next-code dup pick 1 tail
(canonize-codes) ?push 2nip
] if ;