fixed-lengths ( -- lengths )

Vocabulary

compression.deflate.private

Inputs

None

Outputs

lengths

an object

Definition

USING: combinators kernel math sequences ;

IN: compression.deflate.private

: fixed-lengths ( -- lengths )
    288 [
        {
            { [ dup 144 < ] [ drop 8 ] }
            { [ dup 256 < ] [ drop 9 ] }
            { [ dup 280 < ] [ drop 7 ] }
            [ drop 8 ]
        } cond
    ] map-integers ;