So why are the numbers uniform?
----- Original Message ----
from: Andrew Nikitin
sent: Thu Jun 15 08:05:36 HKT 2006
Here is my take on generating arbitrary large ranfom numbers.
dice=: 2&$: : (4 : 0)"0
y=. x #.^:_1 y-1
label_again.
l=.y =&{. r=.?1+{.y
while. l *. r<&#y do.
if. d>f=.y{~_1+#r=.r,d=.?x do. goto_again. end.
l=.d=f
end.
x #. r,?x#~y-&#r
)
This one seems to generate uniformly.
Changing left argument (which sets chunk size) performance can be tweaked.
...
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
