reverse-table ( tdesc n -- rtable )

Vocabulary

compression.huffman.private

Inputs

tdesc	an object
n	an object

Outputs

rtable

an object

Definition

USING: accessors arrays assocs ;

IN: compression.huffman.private

:: reverse-table ( tdesc n -- rtable )
    n f <array> <enumerated> :> table tdesc
    [ n table update-reverse-table ] huffman-each table seq>> ;