1 665c255d 2023-08-04 jrmu (define (compose f g)
 2 665c255d 2023-08-04 jrmu   (lambda (x)
 3 665c255d 2023-08-04 jrmu     (f (g x))))
 4 665c255d 2023-08-04 jrmu 
 5 665c255d 2023-08-04 jrmu (define (test-case actual expected)
 6 665c255d 2023-08-04 jrmu   (load-option 'format)
 7 665c255d 2023-08-04 jrmu   (newline)
 8 665c255d 2023-08-04 jrmu   (format #t "Actual: ~A Expected: ~A" actual expected))
 9 665c255d 2023-08-04 jrmu 
10 665c255d 2023-08-04 jrmu (define (square x) (* x x))
11 665c255d 2023-08-04 jrmu (define (inc x) (1+ x))
12 665c255d 2023-08-04 jrmu (test-case ((compose square inc) 6) 49)