;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i Generateur.scm (define (origine graine periode) (modulo graine periode)) ;; Cette fonction crée et renvoie un nombre ;; pseudo-aléatoire compris entre 0 et periode-1 (define (hasard graine periode) (modulo (+ (* graine 15) 3) periode)) ;; Cette fonction affiche periode valeurs ;; pseudo-aléatoires (define (Generateur) (let ((graine 8) (periode 7)) (let boucle ((i 1) (laGraine (origine graine periode))) (let ((valeur (hasard laGraine periode))) (display valeur) (newline) (if (< i periode) (boucle (+ i 1) valeur)))))) (Generateur)