compress-lz77 ( seq -- vec )

Vocabulary

compression.gzip.private

Inputs

seq

an object

Outputs

vec

an object

Definition

USING: kernel math sequences vectors ;

IN: compression.gzip.private

:: compress-lz77 ( seq -- vec )
    0 seq create-pair seq length <vector> ?push
    [ dup sum-vec seq length < ]
    [ dup sum-vec seq create-pair swap ?push ] while ;