;;; Fichier piquet.drs / 18 fevrier 2000

(define (piquet) (jeu 0))

(define (jeu somme)
  (display "somme=") (display somme) (display ", ")
  (let ((valeur (read)))
    (cond ((or (< valeur 1) (> valeur 10))
           (display "erreur : nombre entre 1 et 10 !") (newline)
           (jeu somme))
          ((>= (+ somme valeur) 100) (display "gagne !"))
          (else (jeu (+ somme valeur))))))

;;;-------------------------------------------------------
(define (piquet1) (jeu1 0 "joueur 1" "joueur 2"))

(define (jeu1 s j1 j2)
  (display "somme=") (display s) (display ", ")
  (display j1) (display ": ")
  (let ((v (read)))
    (cond ((or (< v 1) (> v 10))
           (display "erreur : nombre entre 1 et 10 !") (newline)
           (jeu1 s j1 j2))
          ((>= (+ s v) 100) 
           (display "somme=") (display (+ s v)) (display ", ")
            (display j1) (display " a gagne !"))
          (else (jeu1 (+ s v) j2 j1)))))