RosettaCodeData/Task/Closures-Value-capture/EchoLisp/closures-value-capture.echolisp

5 lines
163 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
(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