dists ( vec -- seq )

Vocabulary

compression.gzip.private

Inputs

vec

an object

Outputs

seq

an object

Definition

USING: arrays kernel sequences ;

IN: compression.gzip.private

: dists ( vec -- seq )
    [
        dup array?
        [ second dup array? [ first ] when ] [ drop 31 ] if
    ] map 31 swap remove ;