p6.p6

#!/usr/bin/env perl6

sub term:<👊> { '👊' }
sub term:<✋>  { '✋' }
sub term:<✌>  { '✌' }

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!" }
};