;;;; 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.")

(defparameter *line* "")
(defparameter *out* "MathSlap ")
(defparameter *random-state* 0)
(setq *random-state* (make-random-state t))

;;;; append string parameter with a random number 1 through 10 and a space
(defun concat (o)
  (concatenate 'string o (write-to-string (+ (random 10) 1)) " ")
)

;;;; append out with a random number 1 through 10 and a space
(setq *out* (concat *out*))
;;;; comment next line to start with 2 numbers - leave uncommented to start with 3 numbers
(setq *out* (concat *out*))

;;;; loop until user types q and Enter
(loop
  while (= 1 1)
  do
    (setq *out* (concat *out*))
    (print *out*)
    (finish-output)
;;;; wait for input
    (setq *line* (read-line *standard-input*))
    (when (string= *line* "q")(quit))
)