From 2df4eef0566e0115934c5deeed00861ce31ac7be Mon Sep 17 00:00:00 2001
From: Larry Heyl <hairylarry@gmail.com>
Date: Sun, 12 Jul 2026 22:50:13 +0000
Subject: mathslap.clisp

The only file for this program.

I run it like this

clisp mathslap.clisp
---
 mathslap.clisp | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 mathslap.clisp

(limited to 'mathslap.clisp')

diff --git a/mathslap.clisp b/mathslap.clisp
new file mode 100644
index 0000000..29c7241
--- /dev/null
+++ b/mathslap.clisp
@@ -0,0 +1,26 @@
+;;;; MathSlap program written by Larry Heyl - Game developed by Carl Heyl
+;;;; To win make an equation with the supplied numbers, in order, adding any symbols you want but one and only one equal sign.
+;;;; concise instructions
+(print"MathSlap")
+(print "Hit Enter for another number. q and Enter to quit.")
+(setf *random-state* (make-random-state t))
+(defparameter index 0)
+(defparameter line "")
+(defparameter out "")
+;;;; append out with a random number 1 through 10 and a space
+(set 'out (concatenate 'string "MathSlap " (write-to-string (+ (random 10) 1)) " "))
+;;;; loop until user types q and Enter
+(setf index 1)
+(loop
+  while (< index 10)
+  do
+    (+ index 1)
+;;;; append out with a random number 1 through 10 and a space
+    (set 'out (concatenate 'string out (write-to-string (+ (random 10) 1)) " "))
+    (print out)
+    (finish-output)
+;;;; wait for input
+    (setq line (read-line *standard-input*))
+    (when (string= line "q")(quit))
+)
+
-- 
cgit v1.2.3