mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
16 lines
332 B
Scheme
16 lines
332 B
Scheme
;-*-Scheme-*-
|
|
|
|
(test-setup 3628800 #f)
|
|
|
|
;; for now, recursive functions need to forward declare so they have their
|
|
;; return type.
|
|
(defun-extern factorial-recursive ((x integer)) integer)
|
|
|
|
(defun factorial-recursive ((x integer))
|
|
(cond ((= x 1) x)
|
|
(else (* x (factorial-recursive (- x 1))))
|
|
)
|
|
)
|
|
|
|
(factorial-recursive 10)
|