16 lines
209 B
Scheme
16 lines
209 B
Scheme
(define (adder x)
|
||
(lambda (y)
|
||
(+ x y)))
|
||
|
||
((adder 3) 4)
|
||
|
||
|
||
|
||
(define (adder x)
|
||
(list (lambda (self y)
|
||
(+ (nth self 1) y))
|
||
x))
|
||
|
||
(let ((closure (adder 3)))
|
||
((nth closure 0) closure 4))
|