mirror of
https://github.com/open-goal/jak-project
synced 2026-05-25 07:23:19 -04:00
water
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))
|
|
)
|