;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i NombreDea-do.scm (define (nombreDea chaine) (let ((longueur (string-length chaine))) (do ((i 0 (+ i 1)) (nombre 0 (if (char=? (string-ref chaine i) #\a) (+ 1 nombre) nombre))) ((= i longueur) nombre)))) (display (nombreDea "abracadabra")) (newline)