mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
19 lines
409 B
Common Lisp
19 lines
409 B
Common Lisp
(defun factorial-iterative ((x integer))
|
|
(let ((result 1))
|
|
(while (!= x 1)
|
|
(set! result (* result x))
|
|
(set! x (- x 1))
|
|
)
|
|
result
|
|
)
|
|
)
|
|
|
|
;; until we load KERNEL.CGO automatically, we have to do this to
|
|
;; make format work correctly.
|
|
(define-extern _format function)
|
|
(define format _format)
|
|
|
|
(let ((x 10))
|
|
(format #t "The value of ~D factorial is ~D~%" x (factorial-iterative x))
|
|
)
|