Функция, которая находит первый атом, не являющийся массивом, списка с подсписками - Lisp

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

Здравствуйте, помогите с задачей... Написать функцию, которая находит первый атом, не являющийся массивом, списка с подсписками.

Решение задачи: «Функция, которая находит первый атом, не являющийся массивом, списка с подсписками»

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

;; HomeLisp
 
(defun task (lst)
  (car (flatten lst)))
 
==> TASK
 
(task '((q w) 1 2))
 
==> Q

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

В данном коде определена функция TASK, которая принимает в качестве аргумента LIST. Внутри функции происходит применение операции CAR к результату вызова функции FLATTEN, которая превращает список в одномерный массив. Результатом работы функции TASK является первый не являющийся массивом элемент списка. Когда вызывается функция TASK с аргументом '((q w) 1 2), происходит следующее:

Функция TASK начинает выполняться.
Значение аргумента '((q w) 1 2) присваивается переменной LST.
Вызывается функция FLATTEN с аргументом LST.
Результат вызова функции FLATTEN присваивается переменной FLAT.
Вызывается функция CAR с аргументом FLAT.
Результат вызова функции CAR присваивается переменной RESULT.
Функция TASK завершает свою работу, возвращая значение RESULT.
Значение RESULT является результатом выполнения функции TASK и присваивается переменной Q.
Результат выполнения функции TASK выводится в консоль. Таким образом, результатом выполнения кода будет строка Q.