do-shift ( pos i c boyer-moore -- newpos )


Vocabulary
boyer-moore.private

Inputs
posan object
ian object
can object
boyer-moorean object


Outputs
newposan object


Definition
USING: kernel math math.order ;

IN: boyer-moore.private

: do-shift ( pos i c boyer-moore -- newpos )
[ good-suffix-shift ] [ bad-char-shift ] bi-curry 2bi max +
; inline