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
15 lines
266 B
Common Lisp
15 lines
266 B
Common Lisp
(define format _format)
|
|
|
|
(defun even-odd-to-1-2 ((in int))
|
|
(declare (inline))
|
|
(if (= 0 (logand 1 in))
|
|
(let ((x 1.0))
|
|
(return-from #f 1.0)
|
|
)
|
|
123123.23
|
|
)
|
|
2.0
|
|
)
|
|
|
|
(format #t "~f~%" (+ (even-odd-to-1-2 11) (even-odd-to-1-2 12)))
|