inflate-lz77 ( seq -- byte-array )

Vocabulary

compression.inflate.private

Inputs

seq

an object

Outputs

byte-array

an object

Definition

USING: arrays byte-arrays byte-vectors kernel math sequences ;

IN: compression.inflate.private

:: inflate-lz77 ( seq -- byte-array )
    1000 <byte-vector> :> bytes seq [
        dup array?
        [ first2 [ 1 - bytes nth* bytes push ] curry times ]
        [ bytes push ] if
    ] each bytes >byte-array ;