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