Poker hand analyser: Difference between revisions

my $flush = 'flush' if flush($/);

my $straight = 'straight' if straight($/);

multi sub rank(5,$,$,$*@) { 'five-of-a-kind' }

multi sub rank($,$,$f'flush',$s'straight') where {$f && $s}) { 'straight-flush' }

multi sub rank(4,$,$,$*@) { 'four-of-a-kind' }

multi sub rank($,$,$f'flush',$) where {$f}) { 'flush' }

multi sub rank($,$,$,$s where {$s}'straight') { 'straight' }

multi sub rank(3,2,$,$*@) { 'full-house' }

multi sub rank(3,$,$,$*@) { 'three-of-a-kind' }

multi sub rank(2,2,$,$*@) { 'two-pair' }

multi sub rank(2,$,$,$*@) { 'one-pair' }

multi sub rank($,$,$,$*@) is default { 'high-card' }

constant @Possible-Straights = [ (04 ..^ (+@Faces - 5)).map: { set @Faces[$_-4 .. $_+4] } ];