;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i ZeroDUneFonction.scm (define (Pi) (let ((seuil (expt 10 -5)) (inf 2) (sup 4)) (let boucle ((milieu (/ (+ inf sup) 2))) (if (and (> (- sup inf) seuil) (> (abs (sin milieu)) seuil)) (begin (if (<= (* (sin inf) (sin milieu)) 0) (set! sup milieu) (set! inf milieu)) (boucle (/ (+ inf sup) 2))) (display milieu))) (newline))) (Pi)