Poker hand analyser: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: use a grammar actions class) |
|||
| Line 2,187: | Line 2,187: | ||
say "$_: $rank"; |
say "$_: $rank"; |
||
} |
} |
||
| ⚫ | |||
for ("2♥ 2♦ 2♣ k♣ q♦", # three-of-a-kind |
|||
"2♥ 5♥ 7♦ 8♣ 9♠", # high-card |
|||
"a♥ 2♦ 3♣ 4♣ 5♦", # straight |
|||
"2♥ 3♥ 2♦ 3♣ 3♦", # full-house |
|||
"2♥ 7♥ 2♦ 3♣ 3♦", # two-pair |
|||
"2♥ 7♥ 7♦ 7♣ 7♠", # four-of-a-kind |
|||
"10♥ j♥ q♥ k♥ a♥", # straight-flush |
|||
"4♥ 4♠ k♠ 5♦ 10♠", # one-pair |
|||
"q♣ 10♣ 7♣ 6♣ 4♣", # flush |
|||
## EXTRA CREDIT ## |
|||
"joker 2♦ 2♠ k♠ q♦", # three-of-a-kind |
|||
"joker 5♥ 7♦ 8♠ 9♦", # straight |
|||
"joker 2♦ 3♠ 4♠ 5♠", # straight |
|||
"joker 3♥ 2♦ 3♠ 3♦", # four-of-a-kind |
|||
"joker 7♥ 2♦ 3♠ 3♦", # three-of-a-kind |
|||
"joker 7♥ 7♦ 7♠ 7♣", # five-of-a-kind |
|||
"joker j♥ q♥ k♥ A♥", # straight-flush |
|||
"joker 4♣ k♣ 5♦ 10♠", # one-pair |
|||
"joker k♣ 7♣ 6♣ 4♣", # flush |
|||
"joker 2♦ joker 4♠ 5♠", # straight |
|||
"joker Q♦ joker A♠ 10♠", # straight |
|||
"joker Q♦ joker A♦ 10♦", # straight-flush |
|||
"joker 2♦ 2♠ joker q♦", # four of a kind |
|||
) { |
|||
PokerHand.parse($_); |
|||
my $rank = $<rank> |
|||
?? $<rank>.caps |
|||
!! 'invalid'; |
|||
say "$_: $rank"; |
|||
| ⚫ | |||
=={{header|Phix}}== |
=={{header|Phix}}== |
||