(strict-upper?) ( string -- ? )

Vocabulary

modern

Inputs

string

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel math.order sequences ;

IN: modern

: (strict-upper?) ( string -- ? )
    {
        [
            [ { [ 65 90 between? ] [ "':-\\#" member? ] } 1|| ]
            all?
        ]
        [ [ { [ 65 90 between? ] [ 39 = ] } 1|| ] any? ]
    } 1&& ;