rochambeau.p6

#!/usr/bin/env perl6

enum Hand <👊 ✋ ✌>;

multi infix:<✊>(✋, 👊) { True }
multi infix:<✊>(👊, ✌) { True }
multi infix:<✊>(✌ , ✋) { 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!" }
};