Poker hand analyser: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Remove extra use v6; which was making compilation fail) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: test invalid hand, show program output) |
||
Line 2,162: | Line 2,162: | ||
"4♥ 4♠ k♠ 5♦ 10♠", # one-pair |
"4♥ 4♠ k♠ 5♦ 10♠", # one-pair |
||
"q♣ 10♣ 7♣ 6♣ 4♣", # flush |
"q♣ 10♣ 7♣ 6♣ 4♣", # flush |
||
"a♥ a♥ 3♣ 4♣ 5♦", # invalid |
|||
## EXTRA CREDIT ## |
## EXTRA CREDIT ## |
||
"joker 2♦ 2♠ k♠ q♦", # three-of-a-kind |
"joker 2♦ 2♠ k♠ q♦", # three-of-a-kind |
||
Line 2,186: | Line 2,187: | ||
} |
} |
||
</lang> |
</lang> |
||
{{out}} |
|||
<pre>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 |
|||
a♥ a♥ 3♣ 4♣ 5♦: invalid |
|||
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</pre> |
|||
=={{header|Phix}}== |
=={{header|Phix}}== |