mfJjX0 - Online Common Lisp Interpreter & Debugging Tool

(defun factorial-lambda (n)
  (labels ((fact-iter (n acc)        ; Локальная функция fact-iter
             (if (<= n 1)
                 acc                   ; Базовый случай
                 (fact-iter (- n 1) (* n acc))))) ; Рекурсивный вызов
    (fact-iter n 1)))                 ; Вызов локальной функции

    ;; Пример использования:
(format t "Факториал 6 (factorial-lambda, Восходящая рекурсия): ~A~%" (factorial-lambda 6))


(defun factorial-lambda-down (n)
  (labels ((fact-rec (x)
             (if (<= x 1)
                 1
                 (* x (fact-rec (- x 1))))))
    (fact-rec n)))


    ;; Пример использования:
(format t "Факториал 6 (factorial-lambda-down, Нисходящая рекурсия): ~A~%" (factorial-lambda-down 6))


(defun factorial-let (n)
  (labels ((fact-iter (n acc)  ; Локальная функция fact-iter
             (if (<= n 1)      ; Базовый случай: если n <= 1, возвращаем аккумулятор (acc)
                 acc
                 (fact-iter (- n 1) (* n acc))))) ; Рекурсивный вызов
    (fact-iter n 1)))         ; Вызов локальной функции с начальными значениями

;; Пример использования:
(format t "Факториал 6 (factorial-let, Восходящая рекурсия): ~A~%" (factorial-let 6))

(defun factorial-let-down (n)
  (labels ((fact-rec (x)      ; Определяем локальную функцию fact-rec с `labels`
                     (if (<= x 1)
                         1          ; Базовый случай
                         (* x (fact-rec (- x 1)))))) ; Рекурсивный вызов
    (fact-rec n)))      ; Вызываем локальную функцию

;; Пример использования:
(format t "Факториал 6 (factorial-let-down, Нисходящая рекурсия): ~A~%" (factorial-let-down 6))