;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i FractionAdd.scm (define (FractionAdd) (let* ((a (read)) (b (read)) (c (read)) (d (read))) (if (or (zero? b) (zero? d)) (display "Impossible d'avoir un dénominateur nul !") (begin (display (+ (* a d) (* b c))) (newline) (display (* b d)) )) (newline))) (FractionAdd)