gen-leaves ( lit-seq -- leaves )

Vocabulary

compression.huffman.private

Inputs

lit-seq

an object

Outputs

leaves

an object

Definition

USING: accessors kernel sequences ;

IN: compression.huffman.private

: gen-leaves ( lit-seq -- leaves )
    [ huffman-tree new swap >>code ] map ;