fuzzy-index-from ( ch i seq -- n/f )

Vocabulary

tools.completion.private

Inputs

ch	an object
i	an object
seq	an object

Outputs

n/f

an object

Definition

USING: kernel sequences unicode ;

IN: tools.completion.private

: fuzzy-index-from ( ch i seq -- n/f )
    rot [ ch>lower ] [ ch>upper ] bi [ eq? ] curry
    [ [ [ dup ] ] dip [ eq? [ drop t ] ] curry compose ] dip
    [ if ] curry compose find-from drop ;