mirror of
https://github.com/open-goal/jak-project
synced 2026-08-06 18:03:30 -04:00
water111
27f0a7ca44
* refactor tests and analysis passes * identity test working * combine test categories with only a few cases * more fixes
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) |