(partial-suffixes) ( len old elt i -- len old/new old )

Vocabulary

boyer-moore.private

Inputs

len	an object
old	an object
elt	an object
i	an object

Outputs

len	an object
old/new	an object
old	an object

Definition

USING: kernel math ;

IN: boyer-moore.private

:: (partial-suffixes) ( len old elt i -- len old/new old )
    len elt i 1 + = [ len elt - ] [ old ] if old ; inline