Scheme - 从函数列表中创建一个函数

Question

嘿，我在考虑这个问题时遇到了麻烦，需要一些帮助。

在Scheme中，如果我得到一个函数列表（list square - double），我需要创建一个包含该列表的函数

例如

(let (f (co (list square - double))))  where co is the function name that combines

和

一样

(square (- (double n))) where n is some number
So you can do the following
(f 2) => (16) 

(define (co functions) (lambda (n) (? functions)))

我不知道从哪里去？。我知道如果你映射它，你最终会得到应用于数字的函数，但输出为一个列表，所以它会是 '(4 -2 4)。

任何想法将不胜感激

Answer 1

希望这不是家庭作业。

> (define double (lambda (n) (* n 2)))
> (define square (lambda (n) (* n n)))
> (set! fs (list square - double))
> (define co
    (lambda (functions n)
      (cond 
        ((null? functions) n)
        (else ((car functions) (co (cdr functions) n))))))
> (co fs 6)
144
> (co fs 4)
64
> (co fs 2)
16