Handbook
Glossary
(canonize-codes) ( current codes -- codes )
Vocabulary
compression.huffman.private
Inputs
current
an
object
codes
an
object
Outputs
codes
an
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
;