Anonymous user
Unbias a random generator: Difference between revisions
m
output to pre
m (→{{header|PARI/GP}}: trivia) |
m (output to pre) |
||
Line 118:
return 0;
}</lang>
}</lang>output<lang>bias 3: 33.090% vs 49.710%▼
output
bias 4: 25.130% vs 49.430%
bias 5: 19.760% vs 49.650%
bias 6: 16.740% vs 50.030%</
=={{header|C sharp}}==
Line 253 ⟶ 255:
</lang>
output
<
> coffee unbiased.coffee
Line 271 ⟶ 273:
ratio of 1s: 0.1664843 [biased]
ratio of 1s: 0.4997813 [unbiased]
</
=={{header|Common Lisp}}==
Line 284 ⟶ 286:
(let ((u (loop repeat 10000 collect (unbiased n)))
(b (loop repeat 10000 collect (biased n))))
(format t "~a: unbiased ~d biased ~d~%" n (count 0 u) (count 0 b))))</lang>
output
<pre>3: unbiased 4992 biased 3361
4: unbiased 4988 biased 2472
5: unbiased 5019 biased 1987
6: unbiased 4913 biased 1658</
=={{header|D}}==
Line 870 ⟶ 874:
100 * sqrt($fixed[0] * $fixed[1]) / ($fixed[0] + $fixed[1])**1.5);
}</lang>
}</lang>Output:<lang>Bias 3: 6684 3316, 66.84+-0.471% fixed: 2188 2228, 49.5471+-0.752%▼
Output:
Bias 4: 7537 2463, 75.37+-0.431% fixed: 1924 1845, 51.048+-0.814%
Bias 5: 7993 2007, 79.93+-0.401% fixed: 1564 1597, 49.478+-0.889%
Bias 6: 8309 1691, 83.09+-0.375% fixed: 1403 1410, 49.8756+-0.943%</
=={{header|Perl 6}}==
| |||