Page 1 of 1

Simple Number Guessing Game

Posted: Fri Jul 03, 2015 8:36 am
by GengyangCai
This is a simple number guessing game written in Lisp :

(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 ()
(defparameter *small* 1)
(defparameter *big* 100)
(guess-my-number))

Output :

CL-USER 41 > (defparameter *small* 1)
*SMALL*

CL-USER 42 > (defparameter *big* 100)
*BIG*

CL-USER 43 >
(defun guess-my-number ()
(ash (+ *small* *big*) -1))
GUESS-MY-NUMBER

CL-USER 44 >
(defun smaller ()
(setf *big* (1- (guess-my-number)))
(guess-my-number))
SMALLER

CL-USER 45 >
(defun bigger ()
(setf *small* (1+ (guess-my-number)))
(guess-my-number))
BIGGER

CL-USER 46 >
(defun start-over ()
(defparameter *small* 1)
(defparameter *big* 100)
(guess-my-number))
START-OVER

:)