combine-two ( -- )

Vocabulary

compression.huffman.private

Inputs

None

Outputs

None

Definition

USING: heaps kernel math namespaces ;

IN: compression.huffman.private

: combine-two ( -- )
    node-heap get heap-pop node-heap get heap-pop swap [ + ] dip
    pick <huffman-internal> swap node-heap get heap-push drop ;