diff options
| author |  Peter McGoron
| 2024-09-14 12:11:33 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2024-09-14 12:11:33 -0400 |
| commit | 1fb756d647663737385080b5579a218687e88828 (patch) | |
| tree | d123da44f5960199fcb84b01fa6b590010fd1653 /markov.chicken.scm | |
| parent | continuously generate a bible (diff) | |
use a better random number generator from CHICKEN
Diffstat (limited to '')
| -rw-r--r-- | markov.chicken.scm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/markov.chicken.scm b/markov.chicken.scm index ba3453f..d079063 100644 --- a/markov.chicken.scm +++ b/markov.chicken.scm @@ -3,16 +3,12 @@ guess-sentence generate-next-word join-verses - %random-seed seed-from-entropy) (import scheme (chicken base) srfi-69 (chicken format) - (chicken random) - srfi-4) + (chicken random)) (define (seed-from-entropy) - (let ((bytes (blob->u8vector (random-bytes)))) - (set! %random-seed (+ (u8vector-ref bytes 0) - (* 255 (u8vector-ref bytes 1)))))) + (set-pseudo-random-seed! (random-bytes))) (define (join-verses* lst str book chapter verse) (if (null? lst) str |