Определить функцию acc1st с аргументами n и fn, где n является положительным числом, а fn – числовой функцией - Lisp

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

Определить функцию acc1st с аргументами n и fn, где n является положительным числом, а fn – числовой функцией одного аргумента. Функция acc1st накапливает результат функции fn для n первых чисел [1..n]: Например: > (acc1st 10 # ‘-) -55;-1+-2+-3+-4+-5+-6+-7+-8+-10 > (acc1st 10 # ‘(lambda (x) (* x x))) 55; 12+22+32+42+52

Решение задачи: «Определить функцию acc1st с аргументами n и fn, где n является положительным числом, а fn – числовой функцией»

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

;; racket-lang.org
(define (foo n f (acc 0))
  (if (zero? n)
      acc
      (foo (sub1 n) f (+ acc (f n)))))

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

В данном коде определена рекурсивная функция foo с тремя аргументами: n, f и acc. Переменная n является положительным числом, а f — числовой функцией. Переменная acc является аккумулятором, который инициализируется нулем. Список операций в данном коде:

(if (zero? n) acc (foo (sub1 n) f (+ acc (f n))))) Выполняются следующие действия:
Проверяется условие (zero? n) — если оно истинно, то происходит возврат значения переменной acc.
Если условие ложно, то происходит вызов функции foo с аргументами (sub1 n) и f, а также суммой переменной acc и результата вызова функции f с аргументом n. Значение переменной acc обновляется полученным результатом.
Значение переменной acc возвращается в качестве результата работы функции foo.