Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defparameter *small* 1)
- (defparameter *big* 100)
- (defun guess-my-number ()
- (ash (+ *small* *big*) -1))
- (defun smaller ()
- (setf *big* (1- (guess-my-number)))
- (guess-my-number))
- (defun bigger ()
- (setf *small* (1+ (guess-my-number)))
- (guess-my-number))
- (defun start-over ()
- (setf *small* 1)
- (setf *big* 100)
- (guess-my-number))
Add Comment
Please, Sign In to add comment