<string-search> ( values search quot -- model )


Vocabulary
models.search

Inputs
valuesan object
searchan object
quotan object


Outputs
modelan object


Definition
USING: kernel sequences unicode ;

IN: models.search

: <string-search> ( values search quot -- model )
[ [ swap ] ] dip [ [ >case-fold ] bi@ subseq? ] compose
compose <search> ; inline