Anonymous user
Verify distribution uniformity/Naive: Difference between revisions
Verify distribution uniformity/Naive (view source)
Revision as of 00:52, 28 March 2012
, 12 years ago→{{header|Ruby}}
(Better version id in D entry) |
|||
Line 842:
<pre>0 9986 1 9826 2 9861 3 10034 4 9876 5 10114 6 10329 7 9924 8 10123 9 9927
#<StandardError: distribution potentially skewed for 'false': expected around 50000.0, got 94841></pre>
=={{header|Run BASIC}}==
<lang runbasic>s$ = "#########################"
dim num(100)
for i = 1 to 1000
n = (rnd(1) * 10) + 1
num(n) = num(n) + 1
next i
for i = 1 to 10
print using("###",i);" "; using("#####",num(i));" ";left$(s$,num(i) / 5)
next i</lang><pre>
1 90 ##################
2 110 ######################
3 105 #####################
4 100 ####################
5 107 #####################
6 133 #########################
7 85 #################
8 96 ###################
9 82 ################
10 92 ##################*</pre>
=={{header|Tcl}}==
| |||