exponent-char? ( number-parse n char -- number-parse n char ? )

Vocabulary

math.parser.private

Inputs

number-parse	an object
n	an object
char	an object

Outputs

number-parse	an object
n	an object
char	an object
?	an object

Definition

USING: accessors combinators kernel sequences ;

IN: math.parser.private

: exponent-char?
    ( number-parse n char -- number-parse n char ? )
    pick radix>> {
        { 10 [ dup "eE" member-eq? ] }
        [ drop dup "pP" member-eq? ]
    } case ; inline