|
|
|
@ -22,9 +22,9 @@ |
|
|
|
|
(lambda (current accumulator) (cons (mapper current) accumulator)) |
|
|
|
|
'())) |
|
|
|
|
|
|
|
|
|
(define compose (reduce-right |
|
|
|
|
(lambda (current accumulator) (lambda (value) (current (accumulator value)))) |
|
|
|
|
id)) |
|
|
|
|
(define (compose-two f g) (lambda (x) (f (g x)))) |
|
|
|
|
|
|
|
|
|
(define compose (reduce-right compose-two id)) |
|
|
|
|
|
|
|
|
|
(define (combine combiner) |
|
|
|
|
(lambda (a b) (if (null? a) b (if (null? b) a (combiner a b))))) |
|
|
|
|