mirror of
https://github.com/open-goal/jak-project
synced 2026-07-04 13:30:41 -04:00
water
13 lines
202 B
Common Lisp
13 lines
202 B
Common Lisp
;-*-Scheme-*-
|
|
|
|
(test-setup 10.152 #f)
|
|
|
|
|
|
(defun float-testing-function ((x float) (y float))
|
|
(* x y (* x x))
|
|
)
|
|
|
|
(let ((x (float-testing-function (* 1.2 1.2) 3.4)))
|
|
(format #t "~,,3f~%" x)
|
|
)
|