slots

slots.raku

#!/usr/bin/env raku

my Int $cost = 1;

my %wheel = 7 => 20, '🍑' => 10, '🍒' => 8, '🍉' => 6, '🍓' => 5, '🍇' => 4, '🍍' => 3;
my @result = %wheel.keys.roll(3);

say @result;

if [eq] @result {
    my $profit = $cost * %wheel{@result[0]};
    say 'win' ~ " ($profit)";
} else {
    say 'lose';
}