RosettaCodeData/Task/Function-composition/Scheme/function-composition-1.ss

6 lines
92 B
Scheme

(define (compose f g) (lambda (x) (f (g x))))
;; or:
(define ((compose f g) x) (f (g x)))