create-pair ( ind seq -- array )


Vocabulary
compression.gzip.private

Inputs
indan object
seqan object


Outputs
arrayan object


Definition
USING: arrays kernel math sequences ;

IN: compression.gzip.private

:: create-pair ( ind seq -- array )
ind seq longest-prefix :> ( start end ) end ind - :> n n 3 <
[ ind seq nth ] [ n ind start - 2array ] if ;