canonize-codes ( codes -- codes )


Vocabulary
compression.huffman.private

Inputs
codesan object


Outputs
codesan object


Definition
USING: bit-arrays kernel sequences vectors ;

IN: compression.huffman.private

: canonize-codes ( codes -- codes )
[ V{ } clone ] [
dup first length <bit-array> dup pick 1 tail
(canonize-codes) ?push nip reverse
] if-empty ;