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

Vocabulary

suffix-arrays.private

Inputs

index	an object
begin	an object
suffix-array	an object

Outputs

from

an object

Definition

USING: kernel math sequences ;

IN: suffix-arrays.private

: query-from ( index begin suffix-array -- from )
    swap [ head? not ] curry find-last-from drop
    [ 1 + ] [ 0 ] if* ;