language: CLIPS (clips 6.24)
date: 271 days 23 hours ago
link:
visibility: public
1
2
3
(defun factorial(n)
  (cons  ((zerop n) 1)
          (t (* n (factorial (- n 1))))))