RosettaCodeData/Task/Arithmetic-Complex/LFE/arithmetic-complex-3.lfe
2023-07-01 13:44:08 -04:00

3 lines
68 B
Text

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