complex-parts ( 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

: complex-parts ( str i -- n/f )
    cut-slice [ string>real ] [ imaginary-coefficient ] bi*
    2dup and [ rect> ] [ 2drop f ] if ;