html-full-open? ( string -- ? )

Vocabulary

modern

Inputs

string

an object

Outputs

?

an object

Definition

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

IN: modern

: html-full-open? ( string -- ? )
    {
        [ "<" head? ]
        [ length 2 >= ]
        [ second 47 = not ]
        [ rest strict-upper? not ]
        [ [ blank? ] any? not ]
        [ ">" tail? ]
    } 1&& ;