cleac · May 29, 2017 21:32
diff --git a/functional-factorial.lisp b/functional-factorial.lisp
 ; More functional approach, but it gets a stack overflowed on huge numbers

 (defun factorial(num)
  (cond
    ((< num 1) 1)
    (t (* (factorial (- num 1)) num))
  )
 )

diff --git a/imperative-factorial.lisp b/imperative-factorial.lisp
 (defun factorial(num)
  (let ((result 1))
    (loop
      (setq result (* result num))
      (setq num (- num 1))
      (when (< num 1) (return result))
    )
  )
 )
	; More functional approach, but it gets a stack overflowed on huge numbers

	(defun factorial(num)
	(cond
	((< num 1) 1)
	(t (* (factorial (- num 1)) num))
	)
	)