transcendental-lisp/lisp/fact.lisp

(defun fact (x)
  (if (< x 2) 1
    (* x (fact (- x 1)))
  )
)
Initial commit 2016-12-07 14:16:45 -05:00			`(defun fact (x)`
User defined functions now set up their scope correctly 2017-02-27 12:00:24 -05:00			`(if (< x 2) 1`
			`(* x (fact (- x 1)))`
			`)`
			`)`