static-huffman-tables ( -- obj )

Vocabulary

compression.inflate.private

Inputs

None

Outputs

obj

an object

Definition

USING: accessors arrays combinators.smart kernel ranges
sequences ;

IN: compression.inflate.private

IDENTITY-MEMO: static-huffman-tables ( -- obj )
    [
        0 143 [a..b] length 8 <array> 144 255 [a..b]
        length 9 <array> 256 279 [a..b] length 7 <array>
        280 287 [a..b] length 8 <array>
    ] append-outputs 0 31 [a..b] length 5 <array> 2array
    [ [ length>> <iota> ] [ ] bi get-table ] map ;