Unbias a random generator: Difference between revisions
m
→{{header|Raku}}: .perl -> .raku
SqrtNegInf (talk | contribs) m (→{{header|Sidef}}: Fix link: Perl 6 --> Raku) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: .perl -> .raku) |
||
Line 1,588:
(formerly Perl 6)
{{trans|Perl}}
{{works with|Rakudo|2020.08.1}}
<lang perl6>sub randN ( $n where 3..6 ) {
return ( $n.rand / ($n - 1) ).Int;
Line 1,606 ⟶ 1,607:
}
printf "N=%d randN: %s, %4.1f%% unbiased: %s, %4.1f%%\n",
$n, map { .
}</lang>
| |||