Verify distribution uniformity/Naive: Difference between revisions
Content deleted Content added
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.*/
|