;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i RacineDeDeux.scm (define (RacineDeDeux) (display "Entrez la précision désirée (puissance de 10) : ") (let* ((n (read)) (epsilon (expt 10 (- n)))) (display (laRacine epsilon)) (newline))) (define (laRacine epsilon) (let boucle ((racine 1) (racineprec 2)) (if (> (abs (- racine racineprec)) epsilon) (boucle (/ 1 (+ 2 racineprec)) racine) (+ racine 1)))) (RacineDeDeux)