;; Функция вычисляет суммы чисел на каждом уровне вложенности списка lst
(defun calculate-level-sums (lst)
 
;; Рекурсивная функция, которая проходит по списку lst на заданном уровне level.
;;Накапливает суммы чисел в аккумуляторе acc. Аккумулятор acc - это список пар 
 
(defun calculate-level-sums-helper (lst level acc)
 
  (cond
    ((null lst) acc) ; Базовый случай: если список пуст, возвращает аккумулятор
    (t (let ((head (car lst))  ; Берет первый элемент списка
             (tail (cdr lst))) ; Берет остаток списка
         (multiple-value-bind (new-acc remaining-tail)  ; Обрабатывает текущий элемент
           (process-item head level acc) ; Функция process-item определяет, что делать с элементом
           (calculate-level-sums-helper tail level new-acc)))))) ; Рекурсивно вызывает себя для остатка списка
 
;; Обработка одного элемента item на заданном уровне level
(defun process-item (item level acc)
 
   (cond
    ((numberp item) ; Если элемент - число
     (values (update-level-sum acc level item) nil)) ; Обновляет сумму для уровня 
    ((listp item) ; Если элемент - список
     (values (calculate-level-sums-helper item (1+ level) acc) nil)) ; Рекурсивно вызывает себя для списка, увеличив уровень
    (t (values acc nil)))) ; Если элемент - не число и не список, игнорирует его
 
;; Обновление аккумулятора acc суммой для заданного уровня level
(defun update-level-sum (acc level value)
  (let ((existing (assoc level acc))) ; Ищет существующую запись для уровня
    (if existing ; Если уровень уже есть в аккумуляторе
        (let ((new-acc (remove existing acc :test #'equal))) ; Удаляет старую запись
          (cons (list level (+ value (cadr existing))) new-acc)) ; Добавляет обновленную запись с новой суммой
        (cons (list level value) acc)))) ; Иначе, добавляет новую пару (уровень value) в аккумулятор
 
;; Подготавка результата
(defun prepare-result (acc)
 
      (sort (cons '(1 0) acc) #'< :key #'car))) ; Иначе, добавляет (1 0) и сортирует
 
;; Тесты
(format t "~a~%" (calculate-level-sums '(a (b (4 (2 e (3) k 15) e 5) 7)))) ; ((1 0) (2 7) (3 9) (4 17) (5 3))
(format t "~a~%" (calculate-level-sums '(a b c))) ; ((1 0))
(format t "~a~%" (calculate-level-sums '(1 (2 (3))))) ; ((1 1) (2 2) (3 3))
(format t "~a~%" (calculate-level-sums'(1 (2 3 (4 (5 6)))))) ; ((1 1) (2 5) (3 4) (4 11))
 

Cjs7INCk0YPQvdC60YbQuNGPINCy0YvRh9C40YHQu9GP0LXRgiDRgdGD0LzQvNGLINGH0LjRgdC10Lsg0L3QsCDQutCw0LbQtNC+0Lwg0YPRgNC+0LLQvdC1INCy0LvQvtC20LXQvdC90L7RgdGC0Lgg0YHQv9C40YHQutCwIGxzdAooZGVmdW4gY2FsY3VsYXRlLWxldmVsLXN1bXMgKGxzdCkKCjs7INCg0LXQutGD0YDRgdC40LLQvdCw0Y8g0YTRg9C90LrRhtC40Y8sINC60L7RgtC+0YDQsNGPINC/0YDQvtGF0L7QtNC40YIg0L/QviDRgdC/0LjRgdC60YMgbHN0INC90LAg0LfQsNC00LDQvdC90L7QvCDRg9GA0L7QstC90LUgbGV2ZWwuCjs70J3QsNC60LDQv9C70LjQstCw0LXRgiDRgdGD0LzQvNGLINGH0LjRgdC10Lsg0LIg0LDQutC60YPQvNGD0LvRj9GC0L7RgNC1IGFjYy4g0JDQutC60YPQvNGD0LvRj9GC0L7RgCBhY2MgLSDRjdGC0L4g0YHQv9C40YHQvtC6INC/0LDRgCAKIAooZGVmdW4gY2FsY3VsYXRlLWxldmVsLXN1bXMtaGVscGVyIChsc3QgbGV2ZWwgYWNjKQoKICAoY29uZAogICAgKChudWxsIGxzdCkgYWNjKSA7INCR0LDQt9C+0LLRi9C5INGB0LvRg9GH0LDQuTog0LXRgdC70Lgg0YHQv9C40YHQvtC6INC/0YPRgdGCLCDQstC+0LfQstGA0LDRidCw0LXRgiDQsNC60LrRg9C80YPQu9GP0YLQvtGACiAgICAodCAobGV0ICgoaGVhZCAoY2FyIGxzdCkpICA7INCR0LXRgNC10YIg0L/QtdGA0LLRi9C5INGN0LvQtdC80LXQvdGCINGB0L/QuNGB0LrQsAogICAgICAgICAgICAgKHRhaWwgKGNkciBsc3QpKSkgOyDQkdC10YDQtdGCINC+0YHRgtCw0YLQvtC6INGB0L/QuNGB0LrQsAogICAgICAgICAobXVsdGlwbGUtdmFsdWUtYmluZCAobmV3LWFjYyByZW1haW5pbmctdGFpbCkgIDsg0J7QsdGA0LDQsdCw0YLRi9Cy0LDQtdGCINGC0LXQutGD0YnQuNC5INGN0LvQtdC80LXQvdGCCiAgICAgICAgICAgKHByb2Nlc3MtaXRlbSBoZWFkIGxldmVsIGFjYykgOyDQpNGD0L3QutGG0LjRjyBwcm9jZXNzLWl0ZW0g0L7Qv9GA0LXQtNC10LvRj9C10YIsINGH0YLQviDQtNC10LvQsNGC0Ywg0YEg0Y3Qu9C10LzQtdC90YLQvtC8CiAgICAgICAgICAgKGNhbGN1bGF0ZS1sZXZlbC1zdW1zLWhlbHBlciB0YWlsIGxldmVsIG5ldy1hY2MpKSkpKSkgOyDQoNC10LrRg9GA0YHQuNCy0L3QviDQstGL0LfRi9Cy0LDQtdGCINGB0LXQsdGPINC00LvRjyDQvtGB0YLQsNGC0LrQsCDRgdC/0LjRgdC60LAKCjs7INCe0LHRgNCw0LHQvtGC0LrQsCDQvtC00L3QvtCz0L4g0Y3Qu9C10LzQtdC90YLQsCBpdGVtINC90LAg0LfQsNC00LDQvdC90L7QvCDRg9GA0L7QstC90LUgbGV2ZWwKKGRlZnVuIHByb2Nlc3MtaXRlbSAoaXRlbSBsZXZlbCBhY2MpCiAKICAgKGNvbmQKICAgICgobnVtYmVycCBpdGVtKSA7INCV0YHQu9C4INGN0LvQtdC80LXQvdGCIC0g0YfQuNGB0LvQvgogICAgICh2YWx1ZXMgKHVwZGF0ZS1sZXZlbC1zdW0gYWNjIGxldmVsIGl0ZW0pIG5pbCkpIDsg0J7QsdC90L7QstC70Y/QtdGCINGB0YPQvNC80YMg0LTQu9GPINGD0YDQvtCy0L3RjyAKICAgICgobGlzdHAgaXRlbSkgOyDQldGB0LvQuCDRjdC70LXQvNC10L3RgiAtINGB0L/QuNGB0L7QugogICAgICh2YWx1ZXMgKGNhbGN1bGF0ZS1sZXZlbC1zdW1zLWhlbHBlciBpdGVtICgxKyBsZXZlbCkgYWNjKSBuaWwpKSA7INCg0LXQutGD0YDRgdC40LLQvdC+INCy0YvQt9GL0LLQsNC10YIg0YHQtdCx0Y8g0LTQu9GPINGB0L/QuNGB0LrQsCwg0YPQstC10LvQuNGH0LjQsiDRg9GA0L7QstC10L3RjAogICAgKHQgKHZhbHVlcyBhY2MgbmlsKSkpKSA7INCV0YHQu9C4INGN0LvQtdC80LXQvdGCIC0g0L3QtSDRh9C40YHQu9C+INC4INC90LUg0YHQv9C40YHQvtC6LCDQuNCz0L3QvtGA0LjRgNGD0LXRgiDQtdCz0L4KCjs7INCe0LHQvdC+0LLQu9C10L3QuNC1INCw0LrQutGD0LzRg9C70Y/RgtC+0YDQsCBhY2Mg0YHRg9C80LzQvtC5INC00LvRjyDQt9Cw0LTQsNC90L3QvtCz0L4g0YPRgNC+0LLQvdGPIGxldmVsCihkZWZ1biB1cGRhdGUtbGV2ZWwtc3VtIChhY2MgbGV2ZWwgdmFsdWUpCiAgKGxldCAoKGV4aXN0aW5nIChhc3NvYyBsZXZlbCBhY2MpKSkgOyDQmNGJ0LXRgiDRgdGD0YnQtdGB0YLQstGD0Y7RidGD0Y4g0LfQsNC/0LjRgdGMINC00LvRjyDRg9GA0L7QstC90Y8KICAgIChpZiBleGlzdGluZyA7INCV0YHQu9C4INGD0YDQvtCy0LXQvdGMINGD0LbQtSDQtdGB0YLRjCDQsiDQsNC60LrRg9C80YPQu9GP0YLQvtGA0LUKICAgICAgICAobGV0ICgobmV3LWFjYyAocmVtb3ZlIGV4aXN0aW5nIGFjYyA6dGVzdCAjJ2VxdWFsKSkpIDsg0KPQtNCw0LvRj9C10YIg0YHRgtCw0YDRg9GOINC30LDQv9C40YHRjAogICAgICAgICAgKGNvbnMgKGxpc3QgbGV2ZWwgKCsgdmFsdWUgKGNhZHIgZXhpc3RpbmcpKSkgbmV3LWFjYykpIDsg0JTQvtCx0LDQstC70Y/QtdGCINC+0LHQvdC+0LLQu9C10L3QvdGD0Y4g0LfQsNC/0LjRgdGMINGBINC90L7QstC+0Lkg0YHRg9C80LzQvtC5CiAgICAgICAgKGNvbnMgKGxpc3QgbGV2ZWwgdmFsdWUpIGFjYykpKSkgOyDQmNC90LDRh9C1LCDQtNC+0LHQsNCy0LvRj9C10YIg0L3QvtCy0YPRjiDQv9Cw0YDRgyAo0YPRgNC+0LLQtdC90YwgdmFsdWUpINCyINCw0LrQutGD0LzRg9C70Y/RgtC+0YAKCjs7INCf0L7QtNCz0L7RgtCw0LLQutCwINGA0LXQt9GD0LvRjNGC0LDRgtCwCihkZWZ1biBwcmVwYXJlLXJlc3VsdCAoYWNjKQoKICAgICAgKHNvcnQgKGNvbnMgJygxIDApIGFjYykgIyc8IDprZXkgIydjYXIpKSkgOyDQmNC90LDRh9C1LCDQtNC+0LHQsNCy0LvRj9C10YIgKDEgMCkg0Lgg0YHQvtGA0YLQuNGA0YPQtdGCCgo7OyDQotC10YHRgtGLCihmb3JtYXQgdCAifmF+JSIgKGNhbGN1bGF0ZS1sZXZlbC1zdW1zICcoYSAoYiAoNCAoMiBlICgzKSBrIDE1KSBlIDUpIDcpKSkpIDsgKCgxIDApICgyIDcpICgzIDkpICg0IDE3KSAoNSAzKSkKKGZvcm1hdCB0ICJ+YX4lIiAoY2FsY3VsYXRlLWxldmVsLXN1bXMgJyhhIGIgYykpKSA7ICgoMSAwKSkKKGZvcm1hdCB0ICJ+YX4lIiAoY2FsY3VsYXRlLWxldmVsLXN1bXMgJygxICgyICgzKSkpKSkgOyAoKDEgMSkgKDIgMikgKDMgMykpCihmb3JtYXQgdCAifmF+JSIgKGNhbGN1bGF0ZS1sZXZlbC1zdW1zJygxICgyIDMgKDQgKDUgNikpKSkpKSA7ICgoMSAxKSAoMiA1KSAoMyA0KSAoNCAxMSkpCg==