componentwise ( x y quot -- a b )

Vocabulary

math.complex.private

Inputs

x	an object
y	an object
quot	an object

Outputs

a	an object
b	an object

Definition

USING: kernel math ;

IN: math.complex.private

: componentwise ( x y quot -- a b )
    [ [ >rect ] bi@ ] dip bi-curry@ bi* ; inline