[Perl 6] Sampling from a Mix.

Perl 6 |

0 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

my $mix = (1 => 0.8, 2 => 0.1, 3 => 0.05, 4 => 0.02, 5 => 0.01).Mix;
 
loop (my $i = 0; $i < 10; $i++) {
    $mix.roll(10).sort.say; 
}

Comments