Функция с рекурсией - Lisp

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

Написать функцию с использованием рекурсии, которая увеличивает все элементы числового списка в два раза (список может быть многоуровневым).

Решение задачи: «Функция с рекурсией»

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

(defun task (lst)
  (mapcar (lambda (x) (if (atom x) (* 2 x) (task x))) lst))
 
==> TASK
 
(task '(1 2 (3 (((4 5)) 6) 7)))
 
==> (2 4 (6 (((8 10)) 12) 14))

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

В коде определена функция с именем task. Она принимает в качестве аргумента lst, который является списком. Внутри функции происходит следующее:

Функция mapcar вызывается с аргументом (lambda (x) (if (atom x) (* 2 x) (task x))) и lst.
(lambda (x) (if (atom x) (* 2 x) (task x))) — это анонимная функция, которая вызывается для каждого элемента списка lst.
Если элемент является атомом (имеет ноль или более, но не более двух дополнительных слоев), то возвращается его значение, умноженное на 2.
Если элемент является списком, то рекурсивно вызывается функция task с этим элементом в качестве аргумента.
Результатом работы функции mapcar является новый список, в котором каждый элемент либо имеет значение, равное его atom-значению, умноженному на 2, либо является результатом рекурсивного вызова функции task.
Результат функции task вызывается с аргументом '(1 2 (3 (((4 5)) 6) 7)).
Результатом является (2 4 (6 (((8 10)) 12) 14).