История изменений

Исправление saufesma, 03.03.23 09:57 (текущая версия) :

(defun labels-sum-list (lst n)
  (labels ((temp (lst)
             (if (eq (car lst) nil)
                 n
               (progn
                 (setq n (+ n (car lst)))
    (temp (cdr lst))))))))  ;; теперь он рекурсивный и не работает, где-то косяк

(labels-sum-list '(1 2 3 4 5) 0) => nil

Исходная версия saufesma, 03.03.23 09:56:

(defun labels-sum-list (lst n)
  (labels ((temp (lst)
             (if (eq (car lst) nil)
                 n
               (progn
                 (setq n (+ n (car lst)))
    (temp (cdr lst))))))))  ;; теперь он рекурсивный и не работаетб где-то косяк

(labels-sum-list '(1 2 3 4 5) 0) => nil