RosettaCodeData/Task/Closures-Value-capture/TXR/closures-value-capture-1.txr
2015-11-18 06:14:39 +00:00

2 lines
87 B
Text

(let ((funs (mapcar (ret (op * @@1 @@1)) (range 1 10))))
[mapcar call [funs 0..-1]])