mirror of
https://github.com/open-goal/jak-project
synced 2026-06-25 18:14:34 -04:00
Tyler Wilding
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) |