basis/random/dummy/dummy.factor

   1 USING: kernel math accessors random ;
   2 IN: random.dummy
   3
   4 TUPLE: random-dummy i ;
   5 C: <random-dummy> random-dummy
   6
   7 M: random-dummy seed-random ( seed obj -- )
   8     (>>i) ;
   9
  10 M: random-dummy random-32* ( obj -- r )
  11     [ dup 1 + ] change-i drop ;