(string>complex) ( str i -- n/f )

Vocabulary

math.parser.private

Inputs

str	an object
i	an object

Outputs

n/f

an object

Definition

USING: kernel math sequences ;

IN: math.parser.private

: (string>complex) ( str i -- n/f )
    2dup swap length < [
        2dup swap nth "+-" member-eq? [
            2dup complex-parts
            [ 2nip ] [ 1 + (string>complex) ] if*
        ] [ 1 + (string>complex) ] if
    ] [ 2drop f ] if ;