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))))))

;; Add documentation
(doc recFact "Calculate the factor of n recursively.")
(doc applyFact "Calculate the factor of n iteratively using apply.")
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))))))`
ability to set docstrings for functions 2020-12-05 03:39:58 +00:00
			`;; Add documentation`
			`(doc recFact "Calculate the factor of n recursively.")`
			`(doc applyFact "Calculate the factor of n iteratively using apply.")`