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

Vocabulary

math.complex.private

Inputs

x	an object
y	an object

Outputs

xr*yr	an object
xi*yi	an object

Definition

USING: kernel math ;

IN: math.complex.private

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