RosettaCodeData/Task/Closures-Value-capture/EchoLisp/closures-value-capture.echolisp
2016-12-05 23:44:36 +01:00

4 lines
163 B
Text

(define (fgen i) (lambda () (* i i)))
(define fs (for/vector ((i 10)) (fgen i))) ;; vector of 10 anonymous functions
((vector-ref fs 5)) ;; calls fs[5]
→ 25