Stosowanie listy funkcji do numeru

Question

Rozumiem, że funkcje w schemacie/rakiecie, takie jak mapa, foldr i filtr, mogą wykonywać wspaniałe rzeczy, takie jak zastosowanie funkcji do listy elementów.

Czy można zastosować listę funkcji do pojedynczego elementu?

Chciałbym wygenerować wartości produkowane przez każdą z funkcji, a następnie znaleźć ich maksimum. Dziękuję Ci.

Answer 1

W pierwszej części ta procedura zastosuje listę funkcji do pojedynczego argumentu, przy założeniu, że wszystkie funkcje otrzymują tylko jeden argument. Lista z wynikami jest zwracana

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

Dla drugiej części, znalezienie maksimum na liście jest dość proste. Na przykład, jeśli element jest 2 i lista funkcji jest (list sin cos sqr sqrt):

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

EDIT:

Oto kolejna z możliwych rozwiązań, bez użycia apply i w ramach jednej procedury:

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

Użyj tego w następujący sposób:

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

Answer 2

Kolejny mądry sposób zastosować jedną funkcję po drugim jest rozkładana z komponować tak:

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