Вычислить сумму ряда используя лямбда-выражение - Lisp

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

Здравствуйте! Помогите, пожалуйста, вычисилить вот такую сумму ряда: Нужно каким-то образом реализовать это через лямбда-выражение, то есть рекурсивно сделать не получится.

Решение задачи: «Вычислить сумму ряда используя лямбда-выражение»

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

((lambda (f n)
  (funcall f f n))
 (lambda (f k)
  (if (= k 0) 1
   (* k (funcall f f (- k 1)))))
 10)

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

В этом коде используется лямбда-выражение для вычисления суммы ряда. Код можно разбить на следующие шаги:

Создается функция f, которая принимает два аргумента n и k.
Внутри функции f используется лямбда-выражение, которое вызывает функцию f с аргументом f n.
Затем, внутри функции f, создается вторая функция g, которая принимает аргумент k.
Внутри функции g, проверяется условие k = 0. Если это условие истинно, то возвращается значение 1.
Если условие k = 0 ложно, то возвращается результат умножения k на значение функции f, вызванной с аргументом f (- k 1).
В конце кода, функция f вызывается с аргументами f и 10. Таким образом, результатом выполнения этого кода будет сумма ряда, вычисленная с помощью функции f.