RosettaCodeData/Task/Arithmetic-Complex/LFE/arithmetic-complex-3.lfe
2016-12-05 23:44:36 +01:00

3 lines
68 B
Text

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