longest-prefix ( ind seq -- start end )

Vocabulary

compression.gzip.private

Inputs

ind	an object
seq	an object

Outputs

start	an object
end	an object

Definition

USING: kernel math math.order ranges sequences ;

IN: compression.gzip.private

:: longest-prefix ( ind seq -- start end )
    ind dup ind + seq length min [a..b] seq ind head-slice
    [ ] curry [ dip ind swap seq <slice> subseq-index ] curry
    map-find-last ;