Программирование кода для видеопокера

Введение

Вот моё видео о программировании видеопокера.

Ниже приведён код, разработанный в видеоролике.

#include <iostream>
#include <time.h>

структура карты
{
int r;
int s;
};

void setup(void);
void deal(void);
void draw(int c1, int c2, int c3, int c4, int c5);
int score(card deal[]);

int score_array[2598960];
колода карт[52];
int draw_combinations_array[] = { 1533939, 178365, 178365, 16215, 178365, 16215, 16215, 1081, 178365, 16215, 16215, 1081, 16215, 1081, 1081, 47, 178365, 16215, 16215, 1081, 16215, 1081, 1081, 47, 16215, 1081, 1081, 47, 1081, 47, 47, 1 };
int weighting_array[] = { 5, 43, 43, 473, 43, 473, 473, 7095, 43, 473, 473, 7095, 473, 7095, 7095, 163185, 43, 473, 473, 7095, 473, 7095, 7095, 163185, 473, 7095, 7095, 163185, 7095, 163185, 163185, 7669695 };
__int64 tot_combinations[52];

const char* hand_name_array[] = {
«Проигрыш», «Валеты или лучше», «Две пары», «Три одинаковые карты», «Стрит», «Флэш», «Фулл-хаус», «Четверка одинаковых карт», «Стрит-флеш», «Роял-флеш», «Итого» };
int win_array[] = { 0,1,2,3,4,6,9,25,50,800 };

int main()
{
time_t begtime, endtime;
begintime = time(NULL);
настраивать();
иметь дело();
endtime = time(NULL);
printf("Всего секунд =\t%i\n", (int)endtime - (int)begtime);
}

void setup(void)
{
int i, c1, c2, c3, c4, c5, count, score_deal_array[52], sc;
карточная раздача[5];
for (i = 0; i <= 51; i++)
{
deck[i].r = (int)(i / 4);
колода[i].s = i % 4;
score_deal_array[i] = 0;
tot_combinations[i] = 0;
}
количество = 0;
для (c1 = 0; c1 <= 47; c1++)
{
deal[0] = deck[c1];
for (c2 = c1 + 1; c2 <= 48; c2++)
{
deal[1] = deck[c2];
для (c3 = c2 + 1; c3 <= 49; c3++)
{
deal[2] = deck[c3];
for (c4 = c3 + 1; c4 <= 50; c4++)
{
deal[3] = deck[c4];
for (c5 = c4 + 1; c5 <= 51; c5++)
{
deal[4] = deck[c5];
sc = score(deal);
score_array[count] = sc;
score_deal_array[sc]++;
count++;
}
}
}
}
}
std::cerr << "count =\t" << count << "\n";
for (i = 0; i <= 9; i++)
std::cerr << hand_name_array[i] << "\t" << score_deal_array[i] << "\n";
}

void deal(void)
{
int i, c1, c2, c3, c4, c5;
int count = 0;
для (c1 = 0; c1 <= 47; c1++)
{
for (c2 = c1 + 1; c2 <= 48; c2++)
{
для (c3 = c2 + 1; c3 <= 49; c3++)
{
for (c4 = c3 + 1; c4 <= 50; c4++)
{
for (c5 = c4 + 1; c5 <= 51; c5++)
{
draw(c1,c2,c3,c4,c5);
count++;
если ((count % 1000)==0)
std::cerr << count << "\n";
}
}
}
}
}
для (i=9; i>=0; i--)
printf("%s\t%i\t%I64i\n", hand_name_array[i], win_array[i], tot_combinations[i]);
}

void draw(int c1, int c2, int c3, int c4, int c5)
{
int i,j, d1, d2, d3, d4, d5, index, sc, draw_score_array[32][10];
int count = 0;
for (i = 0; i <= 31; i++)
{
для (j = 0; j <= 9; j++)
draw_score_array[i][j] = 0;
}
для (d1 = 0; d1 <= 47; d1++)
{
для (d2 = d1 + 1; d2 <= 48; d2++)
{
для (d3 = d2 + 1; d3 <= 49; d3++)
{
для (d4 = d3 + 1; d4 <= 50; d4++)
{
для (d5 = d4 + 1; d5 <= 51; d5++)
{
sc = score_array[count];
индекс = 0;
if ((d1 == c1) || (d2 == c1) || (d3 == c1) || (d4 == c1) || (d5 == c1))
индекс += 16;
если ((d1 == c2) || (d2 == c2) || (d3 == c2) || (d4 == c2) || (d5 == c2))
индекс += 8;
если ((d1 == c3) || (d2 == c3) || (d3 == c3) || (d4 == c3) || (d5 == c3))
индекс += 4;
если ((d1 == c4) || (d2 == c4) || (d3 == c4) || (d4 == c4) || (d5 == c4))
индекс += 2;
если ((d1 == c5) || (d2 == c5) || (d3 == c5) || (d4 == c5) || (d5 == c5))
индекс += 1;
draw_score_array[index][sc]++;
count++;
}
}
}
}
}
удвоенное ev;
double max_ev = 0;
int best_play = 0;
for (i = 0; i <= 31; i++)
{
ev = 0.0;
для (j = 0; j <= 9; j++)
ev += draw_score_array[i][j] * win_array[j];
ev /= draw_combinations_array[i];
если (ev > max_ev)
{
max_ev = ev;
best_play = i;
}
}
для (j = 0; j <= 9; j++)
{
tot_combinations[j] += draw_score_array[best_play][j]* weighting_array[best_play];
}
}

int score(card deal[])
{
внутренний прямой, ровный;
if ((deal[0].s == deal[1].s) && (deal[0].s == deal[2].s) && (deal[0].s == deal[3].s) && (deal[0].s == deal[4].s))
flush = 1;
еще
flush = 0;
if ((deal[0].r != deal[1].r) && (deal[1].r != deal[2].r) && (deal[2].r != deal[3].r) && (deal[3].r != deal[4].r))
{
если ((deal[0].r + 4) == deal[4].r)
прямой = 1;
else if ((deal[4].r == 12) && (deal[3].r == 3)) // колесо
прямой = 1;
еще
прямой = 0;
}
еще
прямой = 0;
если ((straight == 1) && (flush == 1))
{
если (deal[0].r == 8)
вернуть 9;
еще
вернуть 8;
}
иначе, если (flush == 1)
вернуть 5;
иначе, если (straight == 1)
вернуть 4;
else if ((deal[0].r == deal[3].r) || (deal[1].r == deal[4].r))
вернуть 7;
else if ((deal[0].r == deal[2].r) && (deal[3].r == deal[4].r))
вернуть 6;
else if ((deal[0].r == deal[1].r) && (deal[2].r == deal[4].r))
вернуть 6;
else if ((deal[0].r == deal[2].r) || (deal[1].r == deal[3].r) || (deal[2].r == deal[4].r))
вернуть 3;
else if ((deal[0].r == deal[1].r) && (deal[2].r == deal[3].r))
вернуть 2;
else if ((deal[0].r == deal[1].r) && (deal[3].r == deal[4].r))
вернуть 2;
else if ((deal[1].r == deal[2].r) && (deal[3].r == deal[4].r))
вернуть 2;
else if ((deal[0].r == deal[1].r) && (deal[0].r >= 9))
вернуть 1;
else if ((deal[1].r == deal[2].r) && (deal[1].r >= 9))
вернуть 1;
else if ((deal[2].r == deal[3].r) && (deal[2].r >= 9))
вернуть 1;
else if ((deal[3].r == deal[4].r) && (deal[3].r >= 9))
вернуть 1;
еще
вернуть 0;
}

Ссылки

Моя методология анализа видеопокера .

Автор: Michael Shackleford