home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / random.st < prev    next >
Encoding:
Text File  |  1986-10-19  |  494 b   |  27 lines
  1. Class Random
  2. | seed |
  3. [
  4.         new
  5.                 seed <- 1
  6. |
  7.     randomize
  8.         seed <- <primitive 161>
  9. |
  10.         first
  11.                 ^ <primitive 32 (seed <- <primitive 35 seed > ) >
  12. |
  13.         next
  14.                 ^ <primitive 32 (seed <- <primitive 35 seed > ) >
  15. |
  16.     between: low and: high
  17.         ^ (self next * (high - low)) + low
  18. |
  19.     randInteger: limit
  20.         ^ (self next * limit) truncated + 1
  21. |
  22.     next: n            | newa |
  23.         newa <- Array new: n.
  24.         (1 to: n) do: [:x | newa at: x put: self next].
  25.         ^ newa
  26. ]
  27.