Closures/Value capture: Difference between revisions
→{{header|TXR}}: Add desugared version.
(→{{header|TXR}}: Don't print last.) |
(→{{header|TXR}}: Add desugared version.) |
||
Line 1,367:
=={{header|TXR}}==
====Sugared====
<lang txrlisp>(let ((funs (mapcar (ret (op * @@1 @@1)) (range 1 10))))
Line 1,374 ⟶ 1,376:
<lang txrlisp>(1 4 9 16 25 36 49 64 81)</lang>
====Desugared====
{{trans|Emacs Lisp}}
The explicit <code>lambda</code> structure here is much like the implicit ones in the "Sugared" example:
<lang txrlisp>;; Dropping distracting "skip last" requirement
;; (not implemented in original Elisp either).
(mapcar 'call
(mapcar (lambda ()
(lambda () (* x x))) '(1 2 3 4 5 6 7 8 9 10)))</lang>
=={{header|zkl}}==
| |||