University
of Washington • CSE583 • D. Notkin © 2000
56
Funarg example
(define (compose f g)
(lambda (x) (f (g x))))
(lambda (x) (f (g x))))
(define double-square
(compose double square))
(compose double square))
(define square-double
(compose square double))
(compose square double))
(let ((square (lambda (y) (* y y y))))
(define d-square
(compose double square))
(double-square 5) ; which square?
(square-double 5) ; which square?
(d-square 5)) ; which square?
(define d-square
(compose double square))
(double-square 5) ; which square?
(square-double 5) ; which square?
(d-square 5)) ; which square?
Remember: compose returns a function like
(lambda (x)
(double (square x)))
(lambda (x)
(double (square x)))