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 ].