initial-medial? ( str i -- ? )

Vocabulary

unicode.normalize.private

Inputs

str	an object
i	an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel math sequences ;

IN: unicode.normalize.private

: initial-medial? ( str i -- ? )
    { [ swap nth initial? ] [ 1 + swap ?nth medial? ] } 2&& ;