2009-05-15 00:23:06 -04:00
|
|
|
USING: kernel math accessors random ;
|
2008-03-19 17:18:03 -04:00
|
|
|
IN: random.dummy
|
|
|
|
|
|
|
|
|
|
TUPLE: random-dummy i ;
|
|
|
|
|
C: <random-dummy> random-dummy
|
|
|
|
|
|
|
|
|
|
M: random-dummy seed-random ( seed obj -- )
|
|
|
|
|
(>>i) ;
|
|
|
|
|
|
2008-03-28 16:09:21 -04:00
|
|
|
M: random-dummy random-32* ( obj -- r )
|
2008-03-19 17:18:03 -04:00
|
|
|
[ dup 1+ ] change-i drop ;
|
