96733 Snamich ;;__________________________________________________ ;;;; Guess the number REPL game ; uses closures to capture the state of the game and accessor functions to check and reset state (defun guess-number-game () (reset-number) (reset-status) (loop until (check-status) for input = (prompt-for-number) do (check-guess input)) (if (y-or-n-p "Play again?") (guess-number-game) (format t "See you next time!~%"))) (let ((number nil) (guesses 0) (won? nil)) (defun reset-number () (setf number (+ (random 100) 1) guesses 0) 'ready) (defun reset-status () (setf won? nil) 'ready) (defun check-guess (x) (incf guesses) (cond ((= x number) (setf won? t) (format t "It took you ~a guesses.~%" guesses)) ((< x number) (format t "Too low.~%")) ((> x number) (format t "Too high.~%")))) (defun check-status () won?)) (defun prompt-for-number () (format t "Please enter a number: ") (let ((input (read))) (if (numberp input) input (prompt-for-number)))) 3478201267 None Common Lisp TRUE