Покер

Меня в последнее время заинтересовал покер (в основном техасский холдем).
Может быть здесь найдутся те, кому будет интересно программирование покера? Оно в корне отличается от шахматного, т.к. позиция соперника (его карты) неизвестна.

Пока у меня первый технический вопрос: как сравнить две руки (нашу и соперника)?
Попутно нужно определится с представлением карт. Т.к. в колоде 52 карты, то напрашивается использовать битборды.

Чтобы сравнить две руки можно каждой поставить в соответствие целое цисло (силу руки). Дальше просто сравниваем целые числа.

Итак, задача: по заданным картам найти силу руки.

Первое, что приходит в голову - искать комбинации по старшинству:
- стрейтфлеш
- каре
- фуллхауз
- флеш
- стрейт
- тройка
- две пары
- пара
- нет комбинации

Внутри комбинаций сила определяется по старшинству карт.

Нужно придумать как это реализовать технически.

Например, можно так определить есть ли у нас флеш:

Code:

    BitCount(cards & ALL_SPADES)   >= 5 ||
    BitCount(cards & ALL_DIAMONDS) >= 5 ||
    BitCount(cards & ALL_HEARTS)   >= 5 ||
    BitCount(cards & ALL_CLUBS)    >= 5

Есть слухи, что все комбинации (кроме флеша) можно посчитать заранее (т.е. скорость не критична) в таблицу 13^7 = 62748517 (около 120 мБ). Эту таблицу можно расчитывать при запуске программы.

ессно

Из твоего объяснения я так и не понял как вычислять индекс в таблице.

Вряд ли меня это обрадует. Хочется побыстрее, а память экономить в последнюю очередь.

Думаю что для начала можно реализовать что-то не особенно эффективное. А уж извращаться над оптимизацией (если она вообще понадобится) можно будет потом.

Кстати, NS, как там у тебя с покером?

Значит оно уже как-то написано? Стоит ли переписывать? Может и так пока сгодится?

Еще за бридж, чисто из любопытства, можно было бы взяться, но никак не преф.
А покер намного лучше потому, что там бабок немеряно.
К тому же покер считается психологической игрой. А это считается очень трудным для компьютера. Инересно так ли это

Кто знает, в какую силу играют нынешние покерные программы? На мой дилетантский взгляд, они должны показывать зверскую силу - игра-то за вычетом психологии (не действующей на компьютер) полностью сводится к теории вероятностей...

Преф и покер - это совсем разные бабки

Вроде есть одна, которая 1х1 умеет наравне с лучшими людьми играть. Но за обычным столом из 10 человек - таких похоже нет.
Покер сводится к задаче из теории игр, причем размерность просто неподъемная для современных компьютеров.
Теорией вероятности тут много не добьешься. Хотя попробовать можно.

Вот здесь в посте от M_White Thu Nov 09, 2006 2:56 am:
http://www.poker-academy.com/forums/viewtopic.php?t=4787
описывается оценка силы руки на ассемблере. Выглядит интересно, правда я пока не особо вникал.

Я все еще никак не решусь начать
Хочется все продумать сперва. А у тебя уже есть на чем мерять скорость? И каковы результаты? Думаю надо выходить на скорость порядка нескольких десятков миллионов позиций в секунду. Ну это если, конечно, озаботится на скорости

Вот что у меня получилось:

Code:

#define HIGH_CARD      0x100000
#define PAIR           0x200000
#define TWO_PAIRS      0x300000
#define TRIPS          0x400000
#define STRAIGHT       0x500000
#define FLUSH          0x600000
#define FULL_HOUSE     0x700000
#define QUADS          0x800000
#define STRAIGHT_FLUSH 0x900000

typedef unsigned int uint;
typedef unsigned __int16 uint16;
typedef unsigned __int64 uint64;

uint High5Bits[0x2000]; // ноль, если в индексе нет пяти бит
uint High3Bits[0x2000];
uint HighBit[0x2000];

union Cards
{
    uint64 all;
    struct
    {
        uint16 spades;
        uint16 hearts;
        uint16 diamonds;
        uint16 clubs;
    } suits;
};

int EvalHand(Cards *h)
{
    uint code = High5Bits[h->suits.spades] | High5Bits[h->suits.hearts] | High5Bits[h->suits.diamonds] | High5Bits[h->suits.clubs];

    // стрейт-флаш
    if (code >= STRAIGHT) return code + (STRAIGHT_FLUSH - STRAIGHT);

    // считаем singles, pairs, trips, quads
    
    uint16 singles = h->suits.spades | h->suits.hearts;

    uint16 pairs = h->suits.spades & h->suits.hearts;

    uint16 trips = pairs & h->suits.diamonds;
    pairs   |= singles & h->suits.diamonds;
    singles |= h->suits.diamonds;

    uint16 quads = trips & h->suits.clubs;
    trips   |= pairs & h->suits.clubs;
    pairs   |= singles & h->suits.clubs;
    singles |= h->suits.clubs;

    // каре
    if (quads) return QUADS + HighBit[quads];

    // фулл-хауз
    if (trips)
    {
        int htrip = HighBit[trips];
        if (pairs & ~(1 << htrip)) return FULL_HOUSE + htrip;
    }

    // флаш
    if (code) return code + (FLUSH - HIGH_CARD);

    // стрейт
    code = High5Bits[singles];
    if (code >= STRAIGHT) return code;

    // сет (тройка)
    if (trips) return TRIPS + HighBit[trips];

    // пары
    if (pairs)
    {
        int hpair = HighBit[pairs];
        uint16 other_pairs = pairs & ~(1 << hpair);

        // две пары
        if (other_pairs) return TWO_PAIRS + 13 * 13 * hpair + 13 * HighBit[other_pairs] + HighBit[singles & ~((1 << hpair) | (1 << HighBit[other_pairs]))];

        // одна пара
        return PAIR + 13 * 13 * 13 * hpair + High3Bits[singles & ~pairs];
    }

    // нет комбинации
    return code;
}

Может и не самый быстрый, но для первого раза покатит.
Осталось только сделать инициализацию массивов.

NS! Делай оболочку (лишь бы правила знала) поскорее. Уже хочется отладить всю эту хрень.

Судя по всему здесь эта тема никому не интересна.
Я сделал симуляцию раздач на 10 игроков. Результаты на геймдеве.

Я не перестаю поражаться насколько у NS веселая жизнь

Ну, у каждого свои понятия веселья. Для меня это измененные состояния сознания. Все остальное очень грустно.