find-pos ( str ch i pos -- i' pos' )

Vocabulary

punycode.private

Inputs

str	an object
ch	an object
i	an object
pos	an object

Outputs

i'	an object
pos'	an object

Definition

USING: combinators kernel math math.order sequences ;

IN: punycode.private

:: find-pos ( str ch i pos -- i' pos' )
    i pos 1 + str [
        ch <=>
        { { +eq+ [ 1 + t ] } { +lt+ [ 1 + f ] } [ drop f ] }
        case
    ] find-from drop [ drop -1 -1 ] unless* ;