case-index ( str -- i/f )

Vocabulary

tokencase.private

Inputs

str

an object

Outputs

i/f

an object

Definition

USING: kernel sequences unicode ;

IN: tokencase.private

: case-index ( str -- i/f )
    dup [ lower? ] find
    [ swap [ lower? not ] find-from drop ] [ nip ] if ;