;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i Quotient.scm (define (monquotient dividende diviseur) (if (< dividende diviseur) 0 (+ 1 (monquotient (- dividende diviseur) diviseur)))) (display (monquotient 17 3)) (newline)