;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i Elog.scm (define (Elog) (let iter ((x (read)) (n 0)) (if (> x 1.) (iter (/ x 2) (+ n 1)) (display n))) (newline)) (Elog)