University
of Washington • CSE583 • D. Notkin © 2000
51
Another curry example
l(define
(mapc fn)
(lambda (x) (map fn x))) l((mapc square) ‘(3 4 5))
® (9 16 25)
® (9 16 25) l(define sum-of-squares
(compose sum squarer)) l(sum-of-squares ‘(3 4 5))
® 50
(lambda (x) (map fn x))) l((mapc square) ‘(3 4 5))
® (9 16 25)
l(define
squarer (mapc square))
l(squarer
‘(3 4 5))® (9 16 25) l(define sum-of-squares
(compose sum squarer)) l(sum-of-squares ‘(3 4 5))
® 50