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

4 lines
68 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
(defun conj
(((match-complex real r img i))
(new r (* -1 i))))