Factorial

(defun factorial (N)

;; First, see if you are done.

(if (< N 2)

N

;; If not, call the same function

;; with a different argument list.

(* N (factorial (- N 1)))))

(factorial 4)

(trace factorial)

(factorial 4)

Previous slide

Next slide

Back to first slide

View graphic version