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

4 lines
68 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
(defun conj
(((match-complex real r img i))
(new r (* -1 i))))