Skip to content

Instantly share code, notes, and snippets.

@raydiak

raydiak/slots.raku Secret

Last active April 25, 2021 02:31
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save raydiak/59350a91715982755e8ffe4a76d6667b to your computer and use it in GitHub Desktop.
Save raydiak/59350a91715982755e8ffe4a76d6667b to your computer and use it in GitHub Desktop.
Download ZIP
slots
Raw
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';
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment