imaginary-coefficient ( str -- n/f )

Vocabulary

math.parser.private

Inputs

str

an object

Outputs

n/f

an object

Definition

USING: kernel sequences ;

IN: math.parser.private

: imaginary-coefficient ( str -- n/f )
    dup "+" sequence=
    [ drop 1 ]
    [ dup "-" sequence= [ drop -1 ] [ string>real ] if ] if ;