Определите функционал МНОГОФУН - Lisp

Формулировка задачи:

определите функционал МНОГОФУН, который использует функции, являющиеся аргументами, по следующей схеме (МНОГОФУН ’(f g ... h) x) <=> (LIST (f x) (g x) ... (h x)).

Решение задачи: «Определите функционал МНОГОФУН»

Листинг программы

> (define (МНОГОФУН f-lst arg)
    (foldr (lambda (f t) (cons (f arg) t)) '() f-lst))
> (МНОГОФУН `(,sin ,cos) 1)
'(0.8414709848078965 0.5403023058681398)

Объяснение кода листинга программы

Определение функции МНОГОФУН с двумя аргументами f-lst и arg.
Используется функция foldr, которая применяет функцию f к каждому элементу списка t, добавляя результат в начало нового списка.
В качестве начального значения для функции foldr используется пустой список '().
В качестве функции f используется лямбда-функция (lambda (f t) (cons (f arg) t).
Эта лямбда-функция применяет функцию f к аргументу arg и добавляет результат в начало списка t.
В качестве значения f используется список f-lst.
В качестве аргумента arg используется число 1.
Результатом выполнения функции МНОГОФУН будет список, состоящий из двух элементов (0.8414709848078965 0.5403023058681398).
Элементы списка представлены в виде пар, где первое значение - результат вычисления функции sin с аргументом arg, а второе значение - результат вычисления функции cos с аргументом arg.