Common lisp

@lisenog · Регистрация: 03.06.2009

Author24 — интернет-сервис помощи студентам

Есть фрагмент программы:

Lisp

(defun game(x y)
(cond
(( < x y)(print "menshe")(setq y (read)))
(( > x y)(print "bolshe")(setq y (read)))
(( = x y)(print "ugadal!"))
)
)

Как закончить выполнение программы, тоесть чтобы больше не предлагало ввести число, при x=y ?

@Nameless One · 19.11.2010, 04:20

Если правильно понял, нужно что-то типа такого:

Lisp

(defun start-game (secret)
  (format t "The game has started. Try to guess a secret!~%")
  (labels ((make-guess ()
         (format t "Make a guess: ")
         (let ((guess (read)))
           (cond ((> guess secret)
              (format t "Too high!~%")
              (make-guess))
             ((< guess secret)
              (format t "Too low!~%")
              (make-guess))
             (t
              (format t "Bingo! The secret number was ~d~%" secret))))))
    (make-guess)))
 
(start-game (random 101))

	19.11.2010, 04:20