tests/benchmark/random.slate

   1
   2 prototypes ensureNamespace: #benchmark &delegate: True.
   3
   4 benchmark define: #RandomNumber &slots: {
   5   #increment  -> 29573.
   6   #multiplier -> 3877.
   7   #modulus    -> 139968.
   8   #fmodulus   -> 139968.0.
   9   #seed.
  10   #scale.
  11 }.
  12
  13 r@(benchmark RandomNumber traits) next
  14 [
  15   r seed: (r seed) * (r multiplier) + (r increment) \\ (r modulus).
  16   (((r seed) * (r scale)) as: Float) / (r fmodulus)
  17 ].
  18
  19 r@(benchmark RandomNumber traits) to: i@(Integer traits) repeat: n@(Integer traits)
  20 [
  21   r `>> [seed: 42. scale: i].
  22   n - 1 timesRepeat: [r next].
  23   r next
  24 ].