This is a read-only archive of lispforum.com. The forum was locked to new users and posts and is preserved here as static HTML from a database snapshot taken on 2019-09-07.

How can I play the game "guess.lisp"?

2 posts · 1357 views

I just started with lisp and installed CLISP and LispIDE.
When I type (load "guess.lisp") there is the message:

;; Datei guess.lisp wird geladen...

;; Datei guess.lisp ist geladen.
but the game does not start. How can I play the game?

Thanks, Ahdan

(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))

[1]> (load "guess.lisp")

;; Datei guess.lisp wird geladen...
;; Datei guess.lisp ist geladen.
T
[2]>

Re: How can I play the game "guess.lisp"?

Ahdan wrote:How can I play the game?
By repeatedly typing one of (guess-my-number), (smaller), and (higher), depending on whether the current guess is too large or too small.
[7]> (guess-my-number)
50
[8]> (smaller) 
25
[9]> (bigger) 
37
[10]> (bigger) 
43
[11]> (smaller) 
40
[12]> (bigger) 
41
[13]> (bigger) 
42
[14]>