Copy over LISP code

2026-08-08 18:44:15 -04:00 · 2020-10-08 00:05:01 -04:00
parent 663453769c
commit 097a9157f5
127 changed files with 34 additions and 11 deletions
@@ -0,0 +1,8 @@
+(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