home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0963.lha / SIOD / scm / random.scm < prev    next >
Text File  |  1993-02-22  |  174b  |  6 lines
  1. (define (next-rand x)
  2.         (remainder (+ 25514 (* x 3)) 65536))
  3.  
  4. (define rand (let ((random 2346))
  5.                   (lambda () (set! random (next-rand random)) random)))
  6.