RosettaCodeData/Task/Metaprogramming/Common-Lisp/metaprogramming-5.lisp
2023-07-01 13:44:08 -04:00

2 lines
71 B
Common Lisp

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