7 lines
95 B
Text
7 lines
95 B
Text
|
(define (compose f g)
|
||
|
|
(lambda (x) (f (g x))))
|
||
|
|
|
||
|
|
;; or:
|
||
|
|
|
||
|
|
(define ((compose f g) x) (f (g x)))
|