*im ( x y -- xi*yr xr*yi )

Vocabulary

math.complex.private

Inputs

x	an object
y	an object

Outputs

xi*yr	an object
xr*yi	an object

Definition

USING: kernel math ;

IN: math.complex.private

: *im ( x y -- xi*yr xr*yi )
    swap [ >rect ] bi@ swap [ * ] bi-curry@ bi* ; inline