;; Функция вычисляет суммы чисел на каждом уровне вложенности списка lst
(defun calculate-level-sums (lst)
(prepare-result (calculate-level-sums-helper lst 1 '())))
 ;; Рекурсивная функция, которая проходит по списку 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)
  (if (assoc 1 acc)
      (sort acc #'< :key #'car)
      (sort (cons '(1 0) acc) #'< :key #'car)))
 
;; Тесты
(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))
 

Ozsg0KTRg9C90LrRhtC40Y8g0LLRi9GH0LjRgdC70Y/QtdGCINGB0YPQvNC80Ysg0YfQuNGB0LXQuyDQvdCwINC60LDQttC00L7QvCDRg9GA0L7QstC90LUg0LLQu9C+0LbQtdC90L3QvtGB0YLQuCDRgdC/0LjRgdC60LAgbHN0CihkZWZ1biBjYWxjdWxhdGUtbGV2ZWwtc3VtcyAobHN0KQoocHJlcGFyZS1yZXN1bHQgKGNhbGN1bGF0ZS1sZXZlbC1zdW1zLWhlbHBlciBsc3QgMSAnKCkpKSkKIDs7INCg0LXQutGD0YDRgdC40LLQvdCw0Y8g0YTRg9C90LrRhtC40Y8sINC60L7RgtC+0YDQsNGPINC/0YDQvtGF0L7QtNC40YIg0L/QviDRgdC/0LjRgdC60YMgbHN0INC90LAg0LfQsNC00LDQvdC90L7QvCDRg9GA0L7QstC90LUgbGV2ZWwsINC90LDQutCw0L/Qu9C40LLQsNGPINGB0YPQvNC80Ysg0YfQuNGB0LXQuyDQsiDQsNC60LrRg9C80YPQu9GP0YLQvtGA0LUgYWNjLiDQkNC60LrRg9C80YPQu9GP0YLQvtGAIGFjYyAtINGN0YLQviDRgdC/0LjRgdC+0Log0L/QsNGAIAogCihkZWZ1biBjYWxjdWxhdGUtbGV2ZWwtc3Vtcy1oZWxwZXIgKGxzdCBsZXZlbCBhY2MpCgogIChjb25kCiAgICAoKG51bGwgbHN0KSBhY2MpIDsg0JHQsNC30L7QstGL0Lkg0YHQu9GD0YfQsNC5OiDQtdGB0LvQuCDRgdC/0LjRgdC+0Log0L/Rg9GB0YIsINCy0L7Qt9Cy0YDQsNGJ0LDQtdGCINCw0LrQutGD0LzRg9C70Y/RgtC+0YAKICAgICh0IChsZXQgKChoZWFkIChjYXIgbHN0KSkgIDsg0JHQtdGA0LXRgiDQv9C10YDQstGL0Lkg0Y3Qu9C10LzQtdC90YIg0YHQv9C40YHQutCwCiAgICAgICAgICAgICAodGFpbCAoY2RyIGxzdCkpKSA7INCR0LXRgNC10YIg0L7RgdGC0LDRgtC+0Log0YHQv9C40YHQutCwCiAgICAgICAgIChtdWx0aXBsZS12YWx1ZS1iaW5kIChuZXctYWNjIHJlbWFpbmluZy10YWlsKSAgOyDQntCx0YDQsNCx0LDRgtGL0LLQsNC10YIg0YLQtdC60YPRidC40Lkg0Y3Qu9C10LzQtdC90YIKICAgICAgICAgICAocHJvY2Vzcy1pdGVtIGhlYWQgbGV2ZWwgYWNjKSA7INCk0YPQvdC60YbQuNGPIHByb2Nlc3MtaXRlbSDQvtC/0YDQtdC00LXQu9GP0LXRgiwg0YfRgtC+INC00LXQu9Cw0YLRjCDRgSDRjdC70LXQvNC10L3RgtC+0LwKICAgICAgICAgICAoY2FsY3VsYXRlLWxldmVsLXN1bXMtaGVscGVyIHRhaWwgbGV2ZWwgbmV3LWFjYykpKSkpKSA7INCg0LXQutGD0YDRgdC40LLQvdC+INCy0YvQt9GL0LLQsNC10YIg0YHQtdCx0Y8g0LTQu9GPINC+0YHRgtCw0YLQutCwINGB0L/QuNGB0LrQsAoKOzsg0J7QsdGA0LDQsdC+0YLQutCwINC+0LTQvdC+0LPQviDRjdC70LXQvNC10L3RgtCwIGl0ZW0g0L3QsCDQt9Cw0LTQsNC90L3QvtC8INGD0YDQvtCy0L3QtSBsZXZlbAooZGVmdW4gcHJvY2Vzcy1pdGVtIChpdGVtIGxldmVsIGFjYykKIAogICAKICAoY29uZAogICAgKChudW1iZXJwIGl0ZW0pIDsg0JXRgdC70Lgg0Y3Qu9C10LzQtdC90YIgLSDRh9C40YHQu9C+CiAgICAgKHZhbHVlcyAodXBkYXRlLWxldmVsLXN1bSBhY2MgbGV2ZWwgaXRlbSkgbmlsKSkgOyDQntCx0L3QvtCy0LvRj9C10YIg0YHRg9C80LzRgyDQtNC70Y8g0YPRgNC+0LLQvdGPINC4INCy0L7Qt9Cy0YDQsNGJ0LDQtdGCINC90L7QstGL0Lkg0LDQutC60YPQvNGD0LvRj9GC0L7RgAogICAgKChsaXN0cCBpdGVtKSA7INCV0YHQu9C4INGN0LvQtdC80LXQvdGCIC0g0YHQv9C40YHQvtC6CiAgICAgKHZhbHVlcyAoY2FsY3VsYXRlLWxldmVsLXN1bXMtaGVscGVyIGl0ZW0gKDErIGxldmVsKSBhY2MpIG5pbCkpIDsg0KDQtdC60YPRgNGB0LjQstC90L4g0LLRi9C30YvQstCw0LXRgiDRgdC10LHRjyDQtNC70Y8g0YHQv9C40YHQutCwLCDRg9Cy0LXQu9C40YfQuNCyINGD0YDQvtCy0LXQvdGMCiAgICAodCAodmFsdWVzIGFjYyBuaWwpKSkpIDsg0JXRgdC70Lgg0Y3Qu9C10LzQtdC90YIgLSDQvdC1INGH0LjRgdC70L4g0Lgg0L3QtSDRgdC/0LjRgdC+0LogKNC90LDQv9GA0LjQvNC10YAsINGB0LjQvNCy0L7QuyksINC/0YDQvtGB0YLQviDQuNCz0L3QvtGA0LjRgNGD0LXQvCDQtdCz0L4KCjs7INCe0LHQvdC+0LLQu9C10L3QuNC1INCw0LrQutGD0LzRg9C70Y/RgtC+0YDQsCBhY2Mg0YHRg9C80LzQvtC5INC00LvRjyDQt9Cw0LTQsNC90L3QvtCz0L4g0YPRgNC+0LLQvdGPIGxldmVsCihkZWZ1biB1cGRhdGUtbGV2ZWwtc3VtIChhY2MgbGV2ZWwgdmFsdWUpCiAgKGxldCAoKGV4aXN0aW5nIChhc3NvYyBsZXZlbCBhY2MpKSkgOyDQmNGJ0LXRgiDRgdGD0YnQtdGB0YLQstGD0Y7RidGD0Y4g0LfQsNC/0LjRgdGMINC00LvRjyDRg9GA0L7QstC90Y8KICAgIChpZiBleGlzdGluZyA7INCV0YHQu9C4INGD0YDQvtCy0LXQvdGMINGD0LbQtSDQtdGB0YLRjCDQsiDQsNC60LrRg9C80YPQu9GP0YLQvtGA0LUKICAgICAgICAobGV0ICgobmV3LWFjYyAocmVtb3ZlIGV4aXN0aW5nIGFjYyA6dGVzdCAjJ2VxdWFsKSkpIDsg0KPQtNCw0LvRj9C10YIg0YHRgtCw0YDRg9GOINC30LDQv9C40YHRjAogICAgICAgICAgKGNvbnMgKGxpc3QgbGV2ZWwgKCsgdmFsdWUgKGNhZHIgZXhpc3RpbmcpKSkgbmV3LWFjYykpIDsg0JTQvtCx0LDQstC70Y/QtdGCINC+0LHQvdC+0LLQu9C10L3QvdGD0Y4g0LfQsNC/0LjRgdGMINGBINC90L7QstC+0Lkg0YHRg9C80LzQvtC5CiAgICAgICAgKGNvbnMgKGxpc3QgbGV2ZWwgdmFsdWUpIGFjYykpKSkgOyDQmNC90LDRh9C1LCDQtNC+0LHQsNCy0LvRj9C10YIg0L3QvtCy0YPRjiDQv9Cw0YDRgyAo0YPRgNC+0LLQtdC90YwgdmFsdWUpINCyINCw0LrQutGD0LzRg9C70Y/RgtC+0YAKCjs7INCf0L7QtNCz0L7RgtCw0LLQutCwINGA0LXQt9GD0LvRjNGC0LDRgtCwCihkZWZ1biBwcmVwYXJlLXJlc3VsdCAoYWNjKQogIChpZiAoYXNzb2MgMSBhY2MpCiAgICAgIChzb3J0IGFjYyAjJzwgOmtleSAjJ2NhcikKICAgICAgKHNvcnQgKGNvbnMgJygxIDApIGFjYykgIyc8IDprZXkgIydjYXIpKSkKCjs7INCi0LXRgdGC0YsKKGZvcm1hdCB0ICJ+YX4lIiAoY2FsY3VsYXRlLWxldmVsLXN1bXMgJyhhIChiICg0ICgyIGUgKDMpIGsgMTUpIGUgNSkgNykpKSkgOyAoKDEgMCkgKDIgNykgKDMgOSkgKDQgMTcpICg1IDMpKQooZm9ybWF0IHQgIn5hfiUiIChjYWxjdWxhdGUtbGV2ZWwtc3VtcyAnKGEgYiBjKSkpIDsgKCgxIDApKQooZm9ybWF0IHQgIn5hfiUiIChjYWxjdWxhdGUtbGV2ZWwtc3VtcyAnKDEgKDIgKDMpKSkpKSA7ICgoMSAxKSAoMiAyKSAoMyAzKSkKKGZvcm1hdCB0ICJ+YX4lIiAoY2FsY3VsYXRlLWxldmVsLXN1bXMnKDEgKDIgMyAoNCAoNSA2KSkpKSkpIDsgKCgxIDEpICgyIDUpICgzIDQpICg0IDExKSkK