Verify distribution uniformity/Naive: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: Fix link: Perl 6 --> Raku) |
||
Line 1,233: | Line 1,233: | ||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
Testing two 'types' of 7-sided dice. Both appear to be fair. |
Testing two 'types' of 7-sided dice. Both appear to be fair. |
||
{{trans| |
{{trans|Raku}} |
||
<lang perl>sub roll7 { 1+int rand(7) } |
<lang perl>sub roll7 { 1+int rand(7) } |
||
sub roll5 { 1+int rand(5) } |
sub roll5 { 1+int rand(5) } |