Применение списка функций к номеру

Question

Я понимаю, что функции в схеме/ракетах, такие как карта, склад и фильтр, могут делать замечательные вещи, например, применять функцию к списку элементов.

Возможно ли применить список функций к одному элементу?

Я хотел бы генерировать значения, создаваемые каждой из функций, а затем найти их максимум. Спасибо.

Answer 1

Для первой части эта процедура будет применять список функций к одному аргументу, предполагая, что все функции получают только один аргумент. A список с результатами возвращается

(define (apply-function-list flist element) 
    (map (lambda (f) 
     (f element)) 
     flist)) 

Для второй части найти максимум в списке достаточно просто. Например, если элемент является 2 и перечень функций (list sin cos sqr sqrt):

(apply max 
(apply-function-list (list sin cos sqr sqrt) 2)) 

РЕДАКТИРОВАТЬ:

Вот еще один из возможных решений, без использования apply и в одной процедуре:

(define (max-list-function flist element) 
    (foldr max -inf.0 
     (map (lambda (f) (f element)) 
       flist))) 

Используйте его следующим образом:

(max-list-function (list sin cos sqr sqrt) 2) 

Answer 2

Другой умный способ применить одну функцию за другой, чтобы сложить с компоновать так:

(define functions (list add1 abs list)) 
((foldl compose1 values functions) -5) 
;which reduces to (list (abs (add1 (values -5)))) 
;which reduces to '(4)