p6.p6

#!/usr/bin/env perl6

sub term:<👊> { 'Rock' }
sub term:<✋>  { 'Paper' }
sub term:<✌>  { 'Scissors' }

multi infix:<✊>(✋, 👊) { True }
multi infix:<✊>(👊, ✌) { True }
multi infix:<✊>(✌ , ✋) { True }
multi infix:<✊>($ , $ ) { False }

my $p1 = (👊, ✋, ✌).roll;
say "Player 1 chooses: {$p1}";

my $p2 = (👊, ✋, ✌).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!" }
};