Список из квадратов элементов - Lisp

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

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

Решение задачи: «Список из квадратов элементов»

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

( (lambda (f lst) (funcall f lst))
  (lambda (lst) (if lst (cons (* (car lst) (car lst)) (funcall f (cdr lst)))))
 '(1 2 3 4 5 6 7 8 9) )

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

В этом коде используется язык программирования Lisp. Вот что делает этот код:

Создается функция f с помощью lambda.
Функция f принимает два аргумента: f и lst.
Внутри функции f вызывается функция funcall с аргументом lst.
Создается вторая функция с помощью lambda.
Вторая функция принимает один аргумент: lst.
Если lst не пустой, то возвращается cons с результатом вычисления квадрата первого элемента lst и lst без первого элемента.
Если lst пустой, то вызывается funcall с аргументом f и cdr lst.
Создается список lst с элементами 1, 2, 3, 4, 5, 6, 7, 8, 9.
Вызывается вторая функция с аргументом lst.
Результат вычисления функции f с аргументом lst возвращается в качестве результата выполнения всего кода.