12 lines
590 B
Scheme
12 lines
590 B
Scheme
(define ((bsd-rand seed)) (set! seed (remainder (+ (* 1103515245 seed) 12345) 2147483648)) seed)
|
|
|
|
(define ((msvcrt-rand seed)) (set! seed (remainder (+ (* 214013 seed) 2531011) 2147483648)) (quotient seed 65536))
|
|
|
|
; auxiliary function to get a list of 'n random numbers from generator 'r
|
|
(define (rand-list r n) = (if (zero? n) '() (cons (r) (rand-list r (- n 1)))))
|
|
|
|
(rand-list (bsd-rand 0) 10)
|
|
; (12345 1406932606 654583775 1449466924 229283573 1109335178 1051550459 1293799192 794471793 551188310)
|
|
|
|
(rand-list (msvcrt-rand 0) 10)
|
|
; (38 7719 21238 2437 8855 11797 8365 32285 10450 30612)
|