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

3 lines
71 B
Common Lisp
Raw Permalink Normal View History

2014-04-02 16:56:35 +00:00
(identity-comp (list x y z) (x 1) (y (* 3 x)) (z (+ x y)))
-> (1 3 4)