madlisp/mad/fact.mad

;; Functions to calculate factorial

;; Recursive version, not tail call optimized
(def recFact (fn (n) (if (< n 2) 1 (* n (recFact (- n 1))))))

;; Apply version
(def applyFact (fn (n) (if (< n 2) 1 (apply * (range 1 (+ n 1))))))
factorial functions 2020-06-06 09:25:49 +00:00			`;; Functions to calculate factorial`

add comments 2020-06-08 02:55:29 +00:00			`;; Recursive version, not tail call optimized`
factorial functions 2020-06-06 09:25:49 +00:00			`(def recFact (fn (n) (if (< n 2) 1 (* n (recFact (- n 1))))))`

			`;; Apply version`
			`(def applyFact (fn (n) (if (< n 2) 1 (apply * (range 1 (+ n 1))))))`