;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i Puissance.scm (define (puissance n) (if (zero? n) 1 (* 2 (puissance (- n 1))))) (display (puissance 10)) (newline)