(search-from) ( seq from boyer-moore -- i/f )


Vocabulary
boyer-moore.private

Inputs
seqan object
froman object
boyer-moorean object


Outputs
i/fan object


Definition


:: (search-from) ( seq from boyer-moore -- i/f )
boyer-moore pattern>> :> pat pat length :> plen seq length
plen - :> lim from [
dup lim <= [
seq pat pick plen mismatch?
[ 2dup + seq nth-unsafe boyer-moore do-shift t ]
[ f ] if*
] [ drop f f ] if
] loop ; inline