complex-component ( remainder complex -- component )

Vocabulary

sequences.complex-components.private

Inputs

remainder	an object
complex	an object

Outputs

component

an object

Definition

USING: combinators kernel math ;

IN: sequences.complex-components.private

: complex-component ( remainder complex -- component )
    swap { { 0 [ real-part ] } { 1 [ imaginary-part ] } } case ;