mirror of
https://github.com/open-goal/jak-project
synced 2026-08-10 19:17:55 -04:00
water111
27f0a7ca44
* refactor tests and analysis passes * identity test working * combine test categories with only a few cases * more fixes
11 lines
185 B
Common Lisp
11 lines
185 B
Common Lisp
(defun factorial-iterative ((x integer))
|
|
(let ((result 1))
|
|
(while (!= x 1)
|
|
(set! result (* result x))
|
|
(set! x (- x 1))
|
|
)
|
|
result
|
|
)
|
|
)
|
|
|
|
(factorial-iterative 10) |