Anonymous user
Verify distribution uniformity/Naive: Difference between revisions
m
→{{header|REXX}}: used a simplier (and faster) form of a DO loop.
m (→{{header|REXX}}: changed/added whitespace and comments, centered the result.) |
m (→{{header|REXX}}: used a simplier (and faster) form of a DO loop.) |
||
Line 1,210:
highDig=9 /*use this var for the highest digit. */
!.=0 /*initialize all possible random trials*/
do
if f=='RANDOM' then ?=random(0,highDig) /*random function.*/
else interpret '?='f"(0,"highDig')' /* user function.*/
!.?=!.?+1 /*bump the counter*/
end /*
/* [↓] compute the digit's skewness. */
g=t/(1+highDig) /*calculate number of each digit throw.*/
| |||