guess-my-number

gistfile1.lisp

(defparameter *big* 100)
(defparameter *small* 1)

(defun guess-my-number ()
  (ash (+ *small* *big*) -1))

(defun smaller ()
  (setq *big* (1- (guess-my-number)))
  (guess-my-number))

(defun bigger ()
  (setq *small* (1+ (guess-my-number)))
  (guess-my-number))

(defun start-over ()
  (setq *big* 100
        *small* 1)
  (guess-my-number))