RosettaCodeData/Task/Arithmetic-Complex/LFE/arithmetic-complex-3.lfe

4 lines
68 B
Plaintext

(defun conj
(((match-complex real r img i))
(new r (* -1 i))))