;;; Fichier jeu.drs / 4 fevrier 2000

;;; Version en une etape

(define (jeu0)
  (let* ((n (random 100))
         (x (read)))
    (if (= x n) (display "gagne! ")
        (display "perdu "))
    (display " n=") (display n)))

;;; Version en quatre etapes

(define (jeu)
  (let* ((n (random 100)))
    (or (cherche n)
        (cherche n)
        (cherche n)
        (cherche n))
    (display "n=") (display n)))

(define (cherche n)
  (let ((x (read)))
    (cond ((= x n) (display "gagne! ") #t)
          ((> x n) (display "trop grand, ") #f)
          ((< x n) (display "trop petit, ") #f))))