17 lines
419 B
Scheme
17 lines
419 B
Scheme
(define (compose f g) (lambda (x) (f (g x))))
|
|
(define (cube x) (expt x 3))
|
|
(define (cube-root x) (expt x (/ 1 3)))
|
|
|
|
(define function (list sin cos cube))
|
|
(define inverse (list asin acos cube-root))
|
|
|
|
(define x 0.5)
|
|
(define (go f g)
|
|
(if (not (or (null? f)
|
|
(null? g)))
|
|
(begin (display ((compose (car f) (car g)) x))
|
|
(newline)
|
|
(go (cdr f) (cdr g)))))
|
|
|
|
(go function inverse)
|