mismatch? ( s1 s2 pos len -- i/f )

Vocabulary

boyer-moore.private

Inputs

s1	an object
s2	an object
pos	an object
len	an object

Outputs

i/f

an object

Definition

USING: kernel math ;

IN: boyer-moore.private

:: mismatch? ( s1 s2 pos len -- i/f )
    len 1 -
    [ [ pos + s1 ] keep s2 match? not ] find-last-integer ;
    inline