take-from-insensitive? ( n seq str -- n'/f seq ? )

Vocabulary

modern.slices

Inputs

n	an object
seq	an object
str	an object

Outputs

n'/f	an object
seq	an object
?	an object

Definition

USING: kernel math sequences unicode ;

IN: modern.slices

:: take-from-insensitive? ( n seq str -- n'/f seq ? )
    n str length over + seq check-slice? [
        subseq str [ >lower ] bi@ sequence=
        [ n str length + seq t ] [ n seq f ] if
    ] [ 3drop n seq f ] if ;