home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / prelude / random < prev    next >
Encoding:
Text File  |  1987-12-30  |  552 b   |  27 lines
  1. Class Random
  2. | seed |
  3. [
  4.         new
  5.                 seed <- 1
  6. |
  7.      randomize
  8.           seed <- <TimeCounter>
  9. |
  10.         first
  11.                 ^ <RandomFloat (seed <- <Random seed > ) >
  12. |
  13.         next
  14.                 ^ <RandomFloat (seed <- <Random 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.