poker-0.1.0.0: app/Main.hs

module Main (main) where


import Poker.Holdem
import Poker.Deck
import Poker.Holdem.Evaluate
import Poker.Holdem.Simulate

import Data.Coerce

cards :: [(Card, Card, Card, Card, Card, Card, Card)]
cards = do
  a <- [0..45]
  b <- [(a+1)..46]
  c <- [(b+1)..47]
  d <- [(c+1)..48]
  e <- [(d+1)..49]
  f <- [(e+1)..50]
  g <- [(f+1)..51]
  return (Card a, coerce b, coerce c, coerce d, coerce e, coerce f, coerce g)

game1 :: Game
game1 = Game
  {
    flop = Just (Flop (newCard King Diamond) (newCard Queen Diamond) (newCard Jack Spade))
  , turn = Nothing
  , street = Nothing
  , players = [
        Player (Just $ newCard Ace Diamond) (Just $ newCard Ace Spade)
      , Player Nothing Nothing
      , Player Nothing Nothing
      , Player Nothing Nothing
      ]
  }

foo :: (Card, Card, Card, Card, Card, Card, Card) -> Int
foo (c1, c2, c3, c4, c5, c6, c7) = coerce $ evaluate c1 c2 c3 c4 c5 c6 c7
example :: IO ()
example = do
  let game = Game
        {
          players =
            [
              Player (Just $ newCard Ace Heart) (Just $ newCard Ten Diamond )
            , Player (Just $ newCard Ace Diamond) Nothing
            , Player Nothing Nothing
            ]
        , flop = Just (Flop (newCard King Diamond) (newCard Queen Diamond) (newCard Jack Spade))
        , turn = Nothing
        , street = Nothing
        }
  probabilities <- simulate 10000 game1
  print probabilities



main = example