diff options
| -rw-r--r-- | mathslap.clisp | 26 |
1 files changed, 26 insertions, 0 deletions
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)) +) + |