table.mli

(* [deck] is a combination of cards where no two cards can be similar. *)
type deck = Card.card list

(* [pot] is an association between a player and the amount of money they
 * contributed to the total pot. *)
(* type pot *)

(* [table] is a combination of a deck and middle cards. *)
type table = deck * Card.card list option

(* [rep_ok d] returns [d] if [d] satisfies the representation invariants. *)
val rep_ok : deck -> deck

(* [shuffle d] is the copy of deck [d] where the order of cards has been
 * randomly changed. *)
val shuffle : deck -> deck

(* [new_deck] is the standard 52 cards poker deck. *)
val new_deck : unit -> deck

(* [flip_new_card t] adds a new card to the middle cards of the table [t]. *)
val flip_new_card : table -> table

(* [two_cards t] removes 2 cards (to later create a player's hand) 
    and in doing so also changes table such that those 2 cards are 
    removed from the deck. *)
val make_hand : deck -> table * Card.card * Card.card