[Perl 6] Sampling from a Bag.

Perl 6 |

0 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

my $bag = (1 => 9, 2 => 5, 3 => 3, 4 => 2, 5 => 1).Bag;
 
loop (my $i = 0; $i < 10; $i++) {
    $bag.roll(5).sort.say; 
}

Comments