build-leaf-table ( leaves -- )

Vocabulary

compression.huffman.private

Inputs

leaves

an object

Outputs

None

Definition

USING: assocs kernel namespaces sequences ;

IN: compression.huffman.private

: build-leaf-table ( leaves -- )
    dup empty?
    [ drop ]
    [ dup first leaf-table get inc-at rest build-leaf-table ] if
    ;