Unbias a random generator: Difference between revisions
Content added Content deleted
(Add Seed7 example) |
(Improve Seed7 example) |
||
| Line 700: | Line 700: | ||
sumUnbiased +:= unbiased(n); |
sumUnbiased +:= unbiased(n); |
||
end for; |
end for; |
||
writeln(n <& ": " <& flt(sumBiased) |
writeln(n <& ": " <& flt(100 * sumBiased) / flt(tests) digits 3 lpad 6 <& |
||
" " <& flt(sumUnbiased) / flt(tests) |
" " <& flt(100 * sumUnbiased) / flt(tests) digits 3 lpad 6); |
||
end for; |
end for; |
||
end func;</lang> |
end func;</lang> |
||