;; Ces programmes sont sous licence CeCILL-B V1 ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i BatailleNavale.scm (define a 4) (define b 7) (define (BatailleNavale) (display "À vous de jouer, deux entiers : ") (newline) (let* ((x (read)) (y (read))) (display (Tir x y)) (newline))) (define (Tir x y) (cond ((and (= x a) (= y b)) "Coulé") ((or (= x a) (= y b)) "En vue") (else "À l'eau"))) (BatailleNavale)