RosettaCodeData/Task/Arithmetic-Complex/Clojure/arithmetic-complex-2.clj

18 lines
283 B
Clojure

(Complex. 1 1)
#<Complex 1 1j>
(c-add (Complex. 3.17 7) (Complex. 1 1.77))
#<Complex 4.17 8.77j>
(c-mul (Complex. 0 1) (Complex. 0 1))
#<Complex -1 0j>
(c-neg (Complex. 1 2))
#<Complex -1 -2j>
(c-inv (Complex. 1 1))
#<Complex 1/2 -1/2j>
(c-conj (Complex. 1 1))
#<Complex 1 -1j>