Rosetta Code

Verify distribution uniformity/Naive: Difference between revisions

Page Discussion

Verify distribution uniformity/Naive (view source)

Revision as of 15:11, 22 September 2017

120 bytes removed ,  6 years ago
m
→‎{{header|REXX}}: simplified the COMMAS function.
(→‎{{header|REXX}}: changed comments and whitespace, changed some variable names to be more descriptive, added commas to output for easier reading the results.)
m (→‎{{header|REXX}}: simplified the COMMAS function.)
Line 1,491:
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
commas: procedure; parse arg _; do njc=length(_'.9';)-3 to 1 by -3; _=insert(',', _, jc); #=123456789end; return _</lang>
e=verify(n, #'0', , verify(n, #"0.",'M') ) - 4
do j=e to verify(n, #, "M") by -3; _=insert(',', _, j); end; return _</lang>
Execution note: &nbsp; quite a few runs were needed before a skewed result was obtained.
<br><br>
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/125183"