prefix<=> ( begin seq -- <=> )

Vocabulary

suffix-arrays.private

Inputs

begin	an object
seq	an object

Outputs

<=>

an object

Definition

USING: kernel math.order sequences ;

IN: suffix-arrays.private

: prefix<=> ( begin seq -- <=> )
    [ <=> ] [ swap head? ] 2bi [ drop +eq+ ] when ;