RosettaCodeData/Task/Arithmetic-Complex/Oforth/arithmetic-complex-2.fth

5 lines
140 B
Forth

3.2 >complex I * 2 >complex + .cr
2 3 Complex new 1.2 >complex + .cr
2 3 Complex new 1.2 >complex * .cr
2 >complex 2 3 Complex new / .cr