Poker hand analyser: Difference between revisions

This solution handles jokers. It has been written as a Perl 6 grammar.

<hand>

:my ($n, $flush, $straight);

{

$n = n-of-a-kind($<hand>);

$flush = flush($<hand>);

$straight = straight($<hand>);

}

<rank($n[0], $n[1], $flush, $straight)>

}

rule hand {

multi token rank(5,$,$,$) { $<five-of-a-kind>=<?> }

multi token rank($,$,$f,$s where {$f && $s}) { $<straight-flush>=<?> }

multi token rank(4,$,$,$) { $<four-of-a-kind>=<?> }

multi token rank($,$,$f,$ where {$f}) { $<flush>=<?> }

multi token rank($,$,$,$s where {$s}) { $<straight>=<?> }

multi token rank(3,2,$,$) { $<full-house>=<?> }

multi token rank(3,$,$,$) { $<three-of-a-kind>=<?> }

multi token rank(2,2,$,$) { $<two-pair>=<?> }

multi token rank(2,$,$,$) { $<one-pair>=<?> }

multi token rank($,$,$,$) is default { $<high-card>=<?> }