query-to ( index begin suffix-array -- to )

Vocabulary

suffix-arrays.private

Inputs

index	an object
begin	an object
suffix-array	an object

Outputs

to

an object

Definition

USING: kernel sequences ;

IN: suffix-arrays.private

: query-to ( index begin suffix-array -- to )
    [ swap [ head? not ] curry find-from drop ] [ length or ] bi
    ;