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


Vocabulary
boyer-moore.private

Inputs
lenan object
oldan object
eltan object
ian object


Outputs
lenan object
old/newan object
oldan object


Definition


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