Unbias a random generator: Difference between revisions
Content added Content deleted
(Added F# version) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: plain arrays as input to 'map') |
||
Line 1,177: | Line 1,177: | ||
} |
} |
||
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 { .perl, .[1] * 100 / $iterations }, |
$n, map { .perl, .[1] * 100 / $iterations }, @raw, @fixed; |
||
}</lang> |
}</lang> |
||