string>complex ( str -- n/f )

Vocabulary

math.parser.private

Inputs

str

an object

Outputs

n/f

an object

Definition

USING: kernel math sequences ;

IN: math.parser.private

: string>complex ( str -- n/f )
    dup empty?
    [ drop f ] [
        dup last 106 = [
            but-last-slice dup 1 (string>complex)
            [ nip ]
            [ imaginary-coefficient [ 0 swap rect> ] [ f ] if* ]
            if*
        ] [ drop f ] if
    ] if ;