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