home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d3xx / d385 / xlispstat.lha / XLispStat / lisp.lzh / XLisp-Stat / Functions / randomgen.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1990-10-11  |  192 b   |  10 lines
  1. ; book pp.102-103
  2.  
  3. (defun make-generator (a m x0)
  4.   (let ((x x0))
  5.     #'(lambda ()
  6.         (setf x (rem (* a x) m))
  7.         (/ x m))))
  8.  
  9. (def g (make-generator (^ 7. 5) (- (^ 2. 31) 1) 12345))
  10.