use a better random number generator from CHICKEN

1 files changed, 11 insertions, 9 deletions

diff --git a/markov.impl.scm b/markov.impl.scm
index c5e0423..bb67955 100644
--- a/markov.impl.scm
+++ b/markov.impl.scm
@@ -169,15 +169,17 @@
 
 ;;; Lehmer random number generator
 
-(define %random-seed 10000)
-
-(define random
-  (let ((m 65537)
-        (a 75))
-    (lambda ()
-      (set! %random-seed (remainder (* a %random-seed)
-                                    m))
-      (/ %random-seed (- m 1)))))
+(cond-expand
+ (chicken (import (chicken random))
+          (define random generate-random-real))
+ (else (define %random-seed 10000)
+       (define random
+         (let ((m 65537)
+               (a 75))
+           (lambda ()
+             (set! %random-seed (remainder (* a %random-seed)
+                                           m))
+             (/ %random-seed (- m 1)))))))
 
 (define probability-list->guess
   (lambda (lst normalized-random-number)