mirror of
https://github.com/open-goal/jak-project
synced 2026-06-01 09:48:00 -04:00
water111
27f0a7ca44
* refactor tests and analysis passes * identity test working * combine test categories with only a few cases * more fixes
14 lines
254 B
Common Lisp
14 lines
254 B
Common Lisp
(define format _format)
|
|
|
|
(defun pow-test ((base float) (exponent integer))
|
|
(let ((result base))
|
|
(while (> exponent 1)
|
|
(*! result base)
|
|
(-! exponent 1)
|
|
)
|
|
result
|
|
)
|
|
)
|
|
|
|
(format #t "~,,0f~%" (pow-test 2.0 8))
|
|
0 |