mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 11:26:18 -04:00
12 lines
350 B
Common Lisp
12 lines
350 B
Common Lisp
;; for now, recursive functions need to forward declare so they have their
|
|
;; return type.
|
|
;(defun-extern factorial-recursive ((x integer)) integer)
|
|
(define-extern factorial-recursive (function integer integer))
|
|
|
|
(defun factorial-recursive ((x integer))
|
|
(cond ((= x 1) x)
|
|
(else (* x (factorial-recursive (- x 1))))
|
|
)
|
|
)
|
|
|
|
(factorial-recursive 10) |