p6.p6

enum Hand <Rock Paper Scissors>;

multi infix:<👊>(Paper, Rock) { True }
multi infix:<👊>(Rock, Scissors) { True }
multi infix:<👊>(Scissors, Paper) { True }
multi infix:<👊>($, $) { False }

my $p1 = Hand.roll;
say "Player 1 chooses {$p1}";

my $p2 = Hand.roll;
say "Player 2 chooses {$p2}";

say do {
    when $p1 👊 $p2 { "Player 1 wins!" }
    when $p2 👊 $p1 { "Player 2 wins!" }
    default { "It's a tie!" }
};