Files
jak-project/test/goalc/source_templates/float/float-function.static.gc
T
2020-10-09 13:23:41 -04:00

10 lines
183 B
Common Lisp

(define format _format)
(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)
)
0