replace-runs ( n len-seq -- new-len-seq )

Vocabulary

compression.gzip.private

Inputs

n	an object
len-seq	an object

Outputs

new-len-seq

an object

Definition

USING: arrays bit-arrays splitting ;

IN: compression.gzip.private

:: replace-runs ( n len-seq -- new-len-seq )
    len-seq 7 n <array> { n { 16 ?{ t t } } } replace
    6 n <array> { n { 16 ?{ f t } } } replace 5 n <array>
    { n { 16 ?{ t f } } } replace 4 n <array>
    { n { 16 ?{ f f } } } replace ;