haskellPoker is program that deals two 2-card poker hands and a shared five card pool and determines the winning hand according to the rules of Texas Holdem Poker. When determining the strength of each player’s hand, the programs considers the two cards that player was dealt, as well as the five cards present in the shared pool. The stronger hand will be returned as the winner.
A deck of cards are represented by 9 values in a permutation of the integers 1-52. The table below shows all 52 cards and their corresponding integer values:
The shuf function then deals two poker hands of two cards each in an alternating fashion. The remaining five cards will form the shared pool. Effectively, each player has
seven cards from which they will form the strongest possible hand.
> shuf [51,8,11,6,4,31,3,13,9]
> ([51,11,4,31,3,13,9], [8,6,4,31,3,13,9])
Once dealt, the evalHand function evaluates the rankings of each hand, then the deal function decides a winner.
- Royal flush is an ace high straight flush. For example,
[1D, 13D, 12D, 11D, 10D] - Straight flush is a five-card straight, all in the same suit. For example,
[7S, 6S, 5S, 4S, 3S] - Four of a kind are four cards of equal value. For example,
[11S, 11D, 11C, 11H] - Full house contains a set (3) of cards of one value and a pair of another value. For example,
[12D, 12S, 12H, 2S, 2D] - Flush is any 5 cards, all of the same suit. For example,
[13D, 12D, 9D, 6D, 3D] - Straight is five cards of sequential value. For example,
[7H, 6D, 5S, 4C, 3H] - Three of a kind is three cards of the same value. For example,
[1H, 1D, 1C] - Two pairs is two cards of one value and another two cards of another value. For example,
[11D, 11H, 8S, 8C] - Pair is two cards of the same rank. For example,
[12D, 12H] - High card is the hand with the highest card(s) wins. If both players hold the highest card, a kicker comes into play,
When there is a tie, the ranks of the cards are used to decide the winner. If both hands have equal ranks, then the hand with the next highest card wins (called the kicker). For example,
["13H", "10H", "9H", "4H", "3H"] > ["11H", "9H", "7H", "4H", "3H"]
["13H", "13S"] > ["7H", "7S"]
Note: The Ace Card is considered the highest rank card except for when it is a low ace straight: ["1H", "2S", "3D", "4C", "5H]
In the project directory, run :load Poker.hs. Then, run the deal function with your desired deck.
Note: the deck must consist of 9 valid card inputs (see Program Input section).
Example:
> :load Poker.hs
> deal [51,8,11,6,4,31,3,13,9]
> ["11C","13C","3C","4C","9C"]
This project was assigned by Professor Ufkes and created for CPS506 - Comparative Programming Languages W2021
haskellPoker is built by: