madlisp/mad/fact.mad

;; Functions to calculate factorial

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

;; Apply version
(def applyFact (fn (n) (if (< n 2) 1 (apply * (range 1 (inc n))))))
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`
use inc/dec for factorial 2020-10-17 07:18:16 +00:00			`(def recFact (fn (n) (if (< n 2) 1 (* n (recFact (dec n))))))`
factorial functions 2020-06-06 09:25:49 +00:00
			`;; Apply version`
use inc/dec for factorial 2020-10-17 07:18:16 +00:00			`(def applyFact (fn (n) (if (< n 2) 1 (apply * (range 1 (inc n))))))`