compressed-lens ( -- len-seq )

Vocabulary

compression.gzip.private

Inputs

None

Outputs

len-seq

an object

Definition

USING: arrays assocs kernel sequences ;

IN: compression.gzip.private

: compressed-lens ( -- len-seq )
    run-free-codes [
        dup array?
        [ [ first code-len-dict at ] [ second ] bi 2array ]
        [ code-len-dict at ] if
    ] map ;