5 lines
147 B
Text
5 lines
147 B
Text
|
> (define (compose f g) (expand (lambda (x) (f (g x))) 'f 'g))
|
||
|
|
(lambda (f g) (expand (lambda (x) (f (g x))) 'f 'g))
|
||
|
|
> ((compose sin asin) 0.5)
|
||
|
|
0.5
|