7 lines
169 B
Text
7 lines
169 B
Text
(define (addN n)
|
|
(lambda (x) (+ x n)))
|
|
|
|
(let ((add10 (addN 10))
|
|
(add20 (addN 20)))
|
|
(print "(add10 4) ==> " (add10 4))
|
|
(print "(add20 4) ==> " (add20 4)))
|