build-tree ( lit-seq -- heap )

Vocabulary

compression.huffman.private

Inputs

lit-seq

an object

Outputs

heap

an object

Definition

USING: heaps kernel math namespaces ;

IN: compression.huffman.private

: build-tree ( lit-seq -- heap )
    gen-leaves build-leaf-table insert-leaves
    [ node-heap get heap-size 1 > ] [ combine-two ] while
    node-heap get ;