RosettaCodeData/Task/Closures-Value-capture/TXR/closures-value-capture-1.txr
2023-07-01 13:44:08 -04:00

2 lines
87 B
Text

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