?parenthesis-number ( str -- n/f )

Vocabulary

http.download.private

Inputs

str

an object

Outputs

n/f

an object

Definition

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

IN: http.download.private

: ?parenthesis-number ( str -- n/f )
    [
        {
            [ "(" head? ]
            [ ")" tail? ]
            [ rest but-last string>number ]
        } 1&&
    ] [ drop f ] ?unless ;