acpc_dealer 2.4.1 → 3.0.0

data/vendor/project_acpc_server/kuhn_3p_equilibrium_player/README.md

@@ -1,35 +0,0 @@
-Kuhn 3-Player Equilibrium Player
-=================================
-`kuhn_3p_equilibrium_player` is an ACPC compatible player that connects to the
-ACPC dealer and plays 3-player Kuhn poker with an equilibrium component
-strategy specified by its arguments from one of those specified by
-[*A Parameterized Family of Equilibrium Profiles for Three-Player Kuhn
-Poker*](http://poker.cs.ualberta.ca/publications/2013-techreport-nl-size.pdf),
-written by Duane Szafron, Richard Gibson, and Nathan Sturtevant, found in
-*Proceedings of the Twelfth International Conference on Autonomous Agents and
-Multiagent Systems (AAMAS-13)* in May 2013.
-
-Equilibrium sub-families
---------------------------
-There are three sub-families of equilibria identified by Szafron, Gibson, and
-Sturtevant, each defined by a different value of parameter `c11`. Depending on
-the sub-family, different parameters must necessarily be provided, except for
-`c11`, `b11`, `b32`, `c33`, and `c34`, which are always necessary. Please
-see
-[the paper](http://poker.cs.ualberta.ca/publications/2013-techreport-nl-size.pdf)
-for the domain of each paramter.
-
-- `c11 = 0.0` sub-family: `b21` must also be provided.
-- `c11 = 1/2.0` sub-family: `b21` and `b23` must also be provided.
-- `0.0 < c11 < 1/2.0` sub-family: No futher parameters are necessary.
-
-License
--------
-MIT license (see `LICENCE`).
-
-Acknowledgments
-----------------
-This project includes software developed for
-the CException Project, by Mark VanderVoord and other
-contributors, as well as the Unity Project, by Mike Karlesky,
-Mark VanderVoord, and Greg Williams and other contributors.

data/vendor/project_acpc_server/kuhn_3p_equilibrium_player/src/CExceptionConfig.h

@@ -1,12 +0,0 @@
-/*
-Copyright (C) 2013 by the Computer Poker Research Group, University of Alberta
-*/
-
-#ifndef __CEXCEPTION_CONFIG_H__
-#define __CEXCEPTION_CONFIG_H__
-
-#include <stdlib.h>
-
-#define CEXCEPTION_NO_CATCH_HANDLER(id) exit(id)
-
-#endif

data/vendor/project_acpc_server/kuhn_3p_equilibrium_player/src/dealer_connection.c

@@ -1,49 +0,0 @@
-/*
-Copyright (C) 2013 by the Computer Poker Research Group, University of Alberta
-*/
-
-#include <stdlib.h>
-#include <assert.h>
-#include "dealer_connection.h"
-#include "game.h"
-
-DealerConnection new_dealer_connection()
-{
-  DealerConnection this = {
-      .host = "localhost",
-      .port = 0,
-      .toServer = NULL,
-      .fromServer = NULL
-  };
-
-  return this;
-}
-
-void connect_to_dealer(DealerConnection* thisPtr)
-{
-  assert(thisPtr);
-
-  int sock = connectTo(thisPtr->host, thisPtr->port);
-  if( sock < 0 ) {
-    exit( EXIT_FAILURE );
-  }
-  thisPtr->toServer = fdopen( sock, "w" );
-  thisPtr->fromServer = fdopen( sock, "r" );
-  if(!(thisPtr->toServer && thisPtr->fromServer)) {
-    fprintf( stderr, "ERROR: could not get socket streams\n" );
-    exit( EXIT_FAILURE );
-  }
-
-  /* send version string to dealer */
-  if(
-      fprintf(
-          thisPtr->toServer,
-          "VERSION:%"PRIu32".%"PRIu32".%"PRIu32"\n",
-          VERSION_MAJOR, VERSION_MINOR, VERSION_REVISION
-      ) != 14
-  ) {
-    fprintf( stderr, "ERROR: could not get send version to server\n" );
-    exit(EXIT_FAILURE);
-  }
-  fflush(thisPtr->toServer);
-}

data/vendor/project_acpc_server/kuhn_3p_equilibrium_player/src/dealer_connection.h

@@ -1,22 +0,0 @@
-/*
-Copyright (C) 2013 by the Computer Poker Research Group, University of Alberta
-*/
-
-#ifndef __DEALER_CONNECTION_H__
-#define __DEALER_CONNECTION_H__
-
-#include <limits.h>
-#include <stdint.h>
-#include <stdio.h>
-
-typedef struct {
-  char host[_POSIX_HOST_NAME_MAX];
-  uint16_t port;
-  FILE *toServer;
-  FILE *fromServer;
-} DealerConnection;
-
-DealerConnection new_dealer_connection();
-void connect_to_dealer(DealerConnection* thisPtr);
-
-#endif

data/vendor/project_acpc_server/kuhn_3p_equilibrium_player/src/kuhn_3p_equilibrium_player.c

@@ -1,483 +0,0 @@
-/*
-Copyright (C) 2013 by the Computer Poker Research Group, University of Alberta
-*/
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <stdbool.h>
-#include <math.h>
-#include <assert.h>
-
-#include <CException.h>
-void print_and_throw_error(const char const *message)
-{
-  fprintf(stderr, "ERROR: %s", message);
-  Throw(1);
-}
-
-#include "kuhn_3p_equilibrium_player.h"
-
-double beta(const Kuhn3pEquilibriumPlayer* kuhn_3p_e_player)
-{
-  assert(kuhn_3p_e_player);
-
-  return fmax(
-      kuhn_3p_e_player->params[B11_INDEX], kuhn_3p_e_player->params[B21_INDEX]
-  );
-}
-
-/* Based on Unity's UnityAssertDoublesWithin function */
-static bool doublesAboutEqual(double d1, double d2) {
-    static const double DOUBLE_PRECISION = 1e-12f;
-
-    double diff = fabs(d2 - d1);
-    double delta = fabs(d2 * DOUBLE_PRECISION);
-
-    //This first part of this condition will catch any NaN or Infinite values
-    return !((diff * 0.0 != 0.0) || (delta < diff));
-}
-
-static bool is_3p_kuhn_poker_game(const Game const *game_def)
-{
-  assert(game_def);
-  return (
-      game_def->bettingType == limitBetting &&
-      game_def->numRounds == 1 && game_def->maxRaises[0] == 1 &&
-      game_def->numSuits == 1 && game_def->numRanks == 4 &&
-      game_def->numHoleCards == 1 &&
-      game_def->numBoardCards[0] == 0 &&
-      game_def->numPlayers == 3
- );
-}
-
-static void check_c11_b11_and_b21(Kuhn3pEquilibriumPlayer* kuhn_3p_e_player) {
-  assert(kuhn_3p_e_player);
-
-  if (kuhn_3p_e_player->params[C11_INDEX] > (1/2.0)) {
-    print_and_throw_error(
-        "kuhn_3p_equilibrium_player: c11 greater than 1/2\n"
-    );
-    return;
-  }
-  if (doublesAboutEqual(0.0, kuhn_3p_e_player->params[C11_INDEX])) {
-    if (kuhn_3p_e_player->params[B21_INDEX] > (1/4.0)) {
-      print_and_throw_error(
-          "kuhn_3p_equilibrium_player: b21 greater than 1/4\n"
-      );
-    }
-    if (
-        kuhn_3p_e_player->params[B11_INDEX] >
-        kuhn_3p_e_player->params[B21_INDEX]
-    ) {
-      print_and_throw_error(
-          "kuhn_3p_equilibrium_player: b11 greater than b21\n"
-      );
-    }
-  } else {
-    if (kuhn_3p_e_player->params[B11_INDEX] > (1/4.0)) {
-      print_and_throw_error(
-          "kuhn_3p_equilibrium_player: b11 greater than 1/4\n"
-      );
-    }
-    if (kuhn_3p_e_player->params[C11_INDEX] < (1/2.0)) {
-      if (
-          kuhn_3p_e_player->params[B11_INDEX] > (1/6.0) && (
-            kuhn_3p_e_player->params[C11_INDEX] > (
-                  (2 - kuhn_3p_e_player->params[B11_INDEX]) /
-                  (3 + 4 * kuhn_3p_e_player->params[B11_INDEX])
-            )
-          )
-      ) {
-        print_and_throw_error(
-            "kuhn_3p_equilibrium_player: c11 too large\n"
-        );
-      }
-
-      kuhn_3p_e_player->params[B21_INDEX] =
-          kuhn_3p_e_player->params[B11_INDEX];
-    } else if (
-        kuhn_3p_e_player->params[B21_INDEX] > fmin(
-            kuhn_3p_e_player->params[B11_INDEX],
-            (1/2.0) - 2 * kuhn_3p_e_player->params[B11_INDEX]
-        )
-    ) {
-      print_and_throw_error(
-          "kuhn_3p_equilibrium_player: b21 too large\n"
-      );
-    }
-  }
-}
-
-static void check_b32(Kuhn3pEquilibriumPlayer* kuhn_3p_e_player) {
-  assert(kuhn_3p_e_player);
-
-  if (
-      kuhn_3p_e_player->params[B32_INDEX] > (
-          (1 / 2.0) + (3 / 4.0) * (
-              kuhn_3p_e_player->params[B11_INDEX] +
-              kuhn_3p_e_player->params[B21_INDEX]
-          ) + (beta(kuhn_3p_e_player) / 4.0)
-      )
-  ) {
-    print_and_throw_error(
-        "kuhn_3p_equilibrium_player: b32 too large\n");
-  }
-}
-
-static void check_c33(Kuhn3pEquilibriumPlayer* kuhn_3p_e_player) {
-  assert(kuhn_3p_e_player);
-
-  if (
-      kuhn_3p_e_player->params[C33_INDEX] < (
-          (1 / 2.0) - kuhn_3p_e_player->params[B32_INDEX])
-  ) {
-    print_and_throw_error(
-        "kuhn_3p_equilibrium_player: c33 too small\n");
-  }
-  if (
-      kuhn_3p_e_player->params[C33_INDEX] > (
-          (1 / 2.0) - kuhn_3p_e_player->params[B32_INDEX] + (3 / 4.0) * (
-              kuhn_3p_e_player->params[B11_INDEX] +
-              kuhn_3p_e_player->params[B21_INDEX]
-          ) + (beta(kuhn_3p_e_player) / 4.0)
-      )
-  ) {
-    print_and_throw_error(
-        "kuhn_3p_equilibrium_player: c33 too large\n"
-    );
-  }
-}
-
-static void check_b23(Kuhn3pEquilibriumPlayer* kuhn_3p_e_player) {
-  if (
-      kuhn_3p_e_player->params[B23_INDEX] > fmax(
-          0.0,
-          (
-              kuhn_3p_e_player->params[B11_INDEX] -
-              kuhn_3p_e_player->params[B21_INDEX]
-          ) /
-          (2 * (1.0 - kuhn_3p_e_player->params[B21_INDEX]))
-      )
-  ) {
-    print_and_throw_error("kuhn_3p_equilibrium_player: b23 too large\n");
-  }
-}
-
-static void check_params(Kuhn3pEquilibriumPlayer* kuhn_3p_e_player)
-{
-  assert(kuhn_3p_e_player);
-
-  check_c11_b11_and_b21(kuhn_3p_e_player);
-
-  check_b23(kuhn_3p_e_player);
-  kuhn_3p_e_player->params[B33_INDEX] = (
-      (1 / 2.0) + (1 / 2.0)*(
-          kuhn_3p_e_player->params[B11_INDEX] +
-          kuhn_3p_e_player->params[B21_INDEX]
-      ) +
-      (beta(kuhn_3p_e_player) / 2.0) - kuhn_3p_e_player->params[B23_INDEX] * (
-          1 - kuhn_3p_e_player->params[B21_INDEX]
-      )
-  );
-  kuhn_3p_e_player->params[B41_INDEX] = (
-      2 * kuhn_3p_e_player->params[B11_INDEX] +
-      2 * kuhn_3p_e_player->params[B21_INDEX]
-  );
-
-  check_b32(kuhn_3p_e_player);
-  check_c33(kuhn_3p_e_player);
-
-  kuhn_3p_e_player->params[B41_INDEX] = (
-      2 * kuhn_3p_e_player->params[B11_INDEX] +
-      2 * kuhn_3p_e_player->params[B21_INDEX]
-  );
-  kuhn_3p_e_player->params[C21_INDEX] = (
-      (1 / 2.0) - kuhn_3p_e_player->params[C11_INDEX]
-  );
-
-  for (size_t i = 0; i < NUM_PARAMS; ++i) {
-    if (
-        kuhn_3p_e_player->params[i] < 0.0 ||
-        kuhn_3p_e_player->params[i] > 1.0
-    ) {
-      print_and_throw_error(
-         "kuhn_3p_equilibrium_player: strategy parameters must be in [0,1]\n"
-      );
-    }
-  }
-  return;
-}
-
-static void action_probs_p0(
-    uint8_t card_rank,
-    const State* state,
-    double* probs
-) {
-  assert(probs);
-  assert(state);
-
-  size_t situation_index = 0;
-
-  if (0 == state->numActions[0]) { // Situation 1
-    probs[a_fold] = 0.0;
-    probs[a_call] = 1.0 - A[card_rank - JACK_RANK][0];
-    probs[a_raise] = A[card_rank - JACK_RANK][0];
-    return;
-  } else if (a_call == state->action[0][1].type) { // Situation 2
-    situation_index = 1;
-  } else if (a_fold == state->action[0][2].type) { // Situation 3
-    situation_index = 2;
-  } else { // Situation 4
-    situation_index = 3;
-  }
-  probs[a_fold] = 1.0 - A[card_rank - JACK_RANK][situation_index];
-  probs[a_call] = A[card_rank - JACK_RANK][situation_index];
-  probs[a_raise] = 0.0;
-
-  return;
-}
-
-static void action_probs_p1(
-    const double* params,
-    uint8_t card_rank,
-    const State* state,
-    double* probs
-) {
-  assert(params);
-  assert(probs);
-  assert(state);
-
-  double param;
-
-  // Situation 1 or 2
-  if (1 == state->numActions[0]) {
-    if (a_call == state->action[0][0].type) { // Situation 1
-      if (JACK_RANK == card_rank) {
-        param = params[B11_INDEX];
-      } else if (QUEEN_RANK == card_rank) {
-        param = params[B21_INDEX];
-      } else if (KING_RANK == card_rank) {
-        param = B31;
-      } else {
-        param = params[B41_INDEX];
-      }
-      probs[a_fold] = 0.0;
-      probs[a_call] = 1.0 - param;
-      probs[a_raise] = param;
-      return;
-    } else { // Situation 2
-      if (JACK_RANK == card_rank) {
-        param = B12;
-      } else if (QUEEN_RANK == card_rank) {
-        param = B22;
-      } else if (KING_RANK == card_rank) {
-        param = params[B32_INDEX];
-      } else {
-        param = B42;
-      }
-    }
-  } else { // Situation 3 or 4
-    if (a_fold == state->action[0][3].type) { // Situation 3
-      if (JACK_RANK == card_rank) {
-        param = B13;
-      } else if (QUEEN_RANK == card_rank) {
-        param = params[B23_INDEX];
-      } else if (KING_RANK == card_rank) {
-        param = params[B33_INDEX];
-      } else {
-        param = B43;
-      }
-    } else { // Situation 4
-      if (JACK_RANK == card_rank) {
-        param = B14;
-      } else if (QUEEN_RANK == card_rank) {
-        param = B24;
-      } else if (KING_RANK == card_rank) {
-        param = B34;
-      } else {
-        param = B44;
-      }
-    }
-  }
-
-  probs[a_fold] = 1.0 - param;
-  probs[a_call] = param;
-  probs[a_raise] = 0.0;
-
-  return;
-}
-
-static void action_probs_p2(
-    const double* params,
-    uint8_t card_rank,
-    const State* state,
-    double* probs
-)
-{
-  assert(params);
-  assert(probs);
-  assert(state);
-
-  double param;
-
-  // Situation 1
-  if (a_call == state->action[0][0].type) {
-    if (a_call == state->action[0][1].type) { // Situation 1
-      if (JACK_RANK == card_rank) {
-        param = params[C11_INDEX];
-      } else if (QUEEN_RANK == card_rank) {
-        param = params[C21_INDEX];
-      } else if (KING_RANK == card_rank) {
-        param = C31;
-      } else {
-        param = C4[0];
-      }
-      probs[a_fold] = 0.0;
-      probs[a_call] = 1.0 - param;
-      probs[a_raise] = param;
-      return;
-    } else { // Situation 2
-      if (JACK_RANK == card_rank) {
-        param = C12;
-      } else if (QUEEN_RANK == card_rank) {
-        param = C22;
-      } else if (KING_RANK == card_rank) {
-        param = C32;
-      } else {
-        param = C4[1];
-      }
-    }
-  } else { // Situation 3 or 4
-    if (a_fold == state->action[0][1].type) { // Situation 3
-      if (JACK_RANK == card_rank) {
-        param = C13;
-      } else if (QUEEN_RANK == card_rank) {
-        param = C23;
-      } else if (KING_RANK == card_rank) {
-        param = params[C33_INDEX];
-      } else {
-        param = C4[2];
-      }
-    } else { // Situation 4
-      if (JACK_RANK == card_rank) {
-        param = C14;
-      } else if (QUEEN_RANK == card_rank) {
-        param = C24;
-      } else if (KING_RANK == card_rank) {
-        param = params[C34_INDEX];
-      } else {
-        param = C4[3];
-      }
-    }
-  }
-
-  probs[a_fold] = 1.0 - param;
-  probs[a_call] = param;
-  probs[a_raise] = 0.0;
-
-  return;
-}
-
-/*********************************/
-/****** Player Interface *********/
-/*********************************/
-
-/* create any private space needed for future calls
-   game_def is a private copy allocated by the dealer for the player's use */
-Kuhn3pEquilibriumPlayer new_kuhn_3p_equilibrium_player(
-    const Game* game_def,
-    const double* params,
-    uint32_t seed
-)
-{
-  assert(game_def);
-  assert(params);
-
-  Kuhn3pEquilibriumPlayer kuhn_3p_e_player;
-
-  /* This player cannot be used outside of Kuhn poker */
-  if(!is_3p_kuhn_poker_game(game_def)) {
-    print_and_throw_error(
-        "kuhn_3p_equilibrium_player used in non-Kuhn game\n"
-    );
-    return kuhn_3p_e_player;
-  }
-
-  kuhn_3p_e_player.game_def = game_def;
-
-  memset(
-      kuhn_3p_e_player.params,
-      0,
-      NUM_PARAMS * sizeof(*kuhn_3p_e_player.params)
-  );
-  for (size_t i = 0; i < NUM_PARAMS; ++i) {
-    kuhn_3p_e_player.params[i] = params[i];
-  }
-
-  kuhn_3p_e_player.seed = seed;
-
-  CEXCEPTION_T e = 0;
-  Try {
-    check_params(&kuhn_3p_e_player);
-  } Catch(e) {
-    Throw(e);
-  }
-
-  /* Create our random number generators */
-  init_genrand(&kuhn_3p_e_player.get_action_rng, kuhn_3p_e_player.seed);
-
-  return kuhn_3p_e_player;
-}
-
-/* return a (valid!) action at the information state described by view */
-Action action(
-    Kuhn3pEquilibriumPlayer* player,
-    MatchState view
-)
-{
-  assert(player);
-
-  double probs[NUM_ACTION_TYPES];
-  memset(probs, 0, NUM_ACTION_TYPES * sizeof(*probs));
-  action_probs(player, view, probs);
-
-  double r = genrand_real2(&player->get_action_rng);
-
-  enum ActionType i = a_fold;
-  for (; i < NUM_ACTION_TYPES - 1; ++i) {
-    if (r <= probs[i]) {
-      break;
-    }
-    r -= probs[i];
-  }
-
-  Action a = {a.type = i, a.size = 0};
-
-  return a;
-}
-
-/* Returns a distribution of actions in action_triple
-   This is an extra function, and does _NOT_ need to be implemented
-   to be considered a valid player.h interface. */
-void action_probs(
-    const Kuhn3pEquilibriumPlayer* player,
-    MatchState view,
-    double* probs
-)
-{
-  assert(player);
-  assert(probs);
-
-  uint8_t card_rank = rankOfCard(view.state.holeCards[view.viewingPlayer][0]);
-
-  if (0 == view.viewingPlayer) {
-    action_probs_p0(card_rank, &view.state, probs);
-  } else if (1 == view.viewingPlayer) {
-    action_probs_p1(player->params, card_rank, &view.state, probs);
-  } else {
-    action_probs_p2(player->params, card_rank, &view.state, probs);
-  }
-
-  return;
-}