RosettaCodeData/Task/Metaprogramming/Common-Lisp/metaprogramming-5.lisp

3 lines
71 B
Common Lisp

(identity-comp (list x y z) (x 1) (y (* 3 x)) (z (+ x y)))
-> (1 3 4)