;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i Poste.scm (define (Poste) (display "Entrez type de lettre et poids, sur deux lignes : ") (let* ((type (read-line)) (poids (read))) (if (Prix type poids) (display (Prix type poids)) (display "Pas au tarif !")) (newline))) (define (Prix type poids) (cond ((string=? type "verte") (cond ((<= poids 20) 0.57) ((<= poids 50) 0.95) ((<= poids 100) 1.40) (else #f))) ((string=? type "prioritaire") (cond ((<= poids 20) 0.60) ((<= poids 50) 1.00) ((<= poids 100) 1.45) (else #f))) ((string=? type "ecopli") (cond ((<= poids 20) 0.55) ((<= poids 50) 0.78) ((<= poids 100) 1.00) (else #f))))) (Poste)