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))
|