mirrors/madlisp
1
0
Fork 0
mirror of https://github.com/peklaiho/madlisp.git synced 2024-11-22 13:24:46 +00:00
Code Issues Packages Projects Releases Wiki Activity

use inc/dec for factorial

Browse Source
This commit is contained in:
Pekka Laiho 2020-10-17 14:18:16 +07:00
parent 475ddf5a20
commit 94a69e7b76
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mad/fact.mad
View File

@ -1,7 +1,7 @@
;; Functions to calculate factorial
;; Recursive version, not tail call optimized
(def recFact (fn (n) (if (< n 2) 1 (* n (recFact (- n 1))))))
(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 (+ n 1))))))
(def applyFact (fn (n) (if (< n 2) 1 (apply * (range 1 (inc n))))))