Алгоритм подсчета покерной руки

hasherfrog · Конфигурация компьютера

Немного путанно или я старый уже, мозги усохли :] Можно уточнить условия?

>> Затем нужно сгенерировать 5 случайных уникальных номеров от 0 до 51 (или от 1 до 52) и на основе этих номеров сформировать покерную руку

Что такое "сформировать покерную руку"? Нужно просто рандомом (следя за неповторяющимися номерами) выбрать 5 чисел от 1 до 52? И всё? Так? Т.е. "сдать пять карт"?

>> Ну и самое главное - определить покерную комбиниацию, которая получится в рез-те.

Опять непонятно. Честно, я не очень понимаю. Нужно просто сказать, какая комбинация карт получилась из сданных пяти? Так? Т.е. никаких подсчётов вероятностей, никаких"взять ещё три" и "сколько сдать карт, чтобы получить флэш" и т.д.?

hasherfrog · Конфигурация компьютера

Тасование колоды:

Цитата:

Алгоритм #4.

Код:

    1. ячейки вектора инициализируются значениями своих индексов
    2. R{ight} ← N {"текущая" длина вектора}
    3. генерируется случайное число K из интервала 1..R
    4. обмен содержимым между K-й и R-й ячейками
    5. R ← R-1
    6. if R = 1 then Exit
    7. переход к шагу 3

Приведенный механизм известен под именем алгоритма "тасования колоды". Его легко переписать, используя уже знакомые нам процедуры, приходится лишь заменить интервал 0..N-1 на 1..N.

Код:

type
  index = 1..N; {N>1}
  massive1 = array [index] of index;

procedure RandomN(var Mas: massive1);
var i, K: index;
begin
  for i := 1 to N do Mas[i] := i;
  Randomize;
  for i := N downto 2 do begin
    K := Random(i) + 1;
    Swap(Mas[K], Mas[i]);
  end;
end;

Соответственно, получение 5 карт можно дать так:
1. Инициализируем массив, от 1 до 52, Перемешиваем массив - RandomN()
2. Берём его первые 5 элементов.

hasherfrog · Конфигурация компьютера

Масть - номер карты (0-51) mod 4 (остаток от деления) 0 - пики... 3 - бубны
Номинал - номер карты (0-51) / 4 (целочисленное деление) 0 - двойка ... 12 - туз

hasherfrog · Конфигурация компьютера

Проверку на флеш делаем очень быструю, без массивов.
Флеш - это когда K[0]%4 == k[1]%4 == k[2]%4 == k[3]%4 == k[4]%4
% - остаток от деления
== - равно
Сорри за мой С :-Р

Поверки по номиналам даём с использованием промежуточного массива.
1. Делаем пустой масив номиналов S размером от 0(двойка) до 12 (туз), итого 13 элементов.
2. Инициализируем его нулями - это счётчики встреч
3. Для каждой карты K из массива k[0..4](пять карт) увеличиваем счётчик номинала.

для i от 0 до 4
счётчик[K[i]/4] ++
/ - целочисленое деление
++ - увеличение на 1.

Далее сортируем массив S (счётчиков номинала по возрастанию) и проверяем результат:
1. если первый элемент стал 4 - "каре".
2. если первый элемент стал 3:
2а. если второй элемент равен 2 - "полный дом".
2б. если второй элемент равен 0 или 1 - "тройка"
3. если первый елемент равен 2:
3а. если второй элемент равен 2 - "две пары".
3б. если второй элемент равен 0 или 1 - "пара"

Комбинации "туз" и "стрит-флеш" тоже легко вычисляются.

Осталось только расписать "сортируем массив счётчиков" - это простая пузырьковая сортировка, например. Или чего-нибудь продвинутое :]

hasherfrog · Конфигурация компьютера

Сортировка (два-три метода)
http://www.relib.com/articles/article.asp?id=197

Vadikan · Конфигурация компьютера

hasherfrog
LOL

Цитата:

Т.е. "сдать пять карт"?

Да, пять неповторяющихся карт.

Цитата:

Нужно просто сказать, какая комбинация карт получилась из сданных пяти?

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

Наверное, твой вариант проще

Спасибо за ответы.

Насчет тасования колоды я понял идею, но не слишком понял реализацию. Что делает следующий код?

Код:

for i := N downto 2 do begin
    K := Random(i) + 1;
    Swap(Mas[K], Mas[i]);

Конкретнее, downto2 do begin вообще непонятно, сорри.

А для подсчета совпадений номиналов твой вариант действительно проще. Общая идея, как я вижу, такая же: отталкиваемся от факта, что у нас не более двух различных совпадающих номиналов карт. Однако исполнение намного проще. Мне как-то в голову не пришло использовать целочисленое деление

Я сделал так. Допустим, у меня уже есть массив Hand(4), 5 элементов которого являются случайными числами от 0 до 51. Теперь создается массив HandFaces(12) для номиналов

Код:

  Dim HandFaces(12) As Integer
        For i = 0 To 12
            HandFaces(i) = 0
        Next

и все элементы наполняются нулями. Затем для каждого элемента из массива Hand выполняется целочисленное деление, получившееся число становится индексом массива HandFaces и значение данного элемента увеличивается на единицу.

Код:

        For i = 0 To 4
            HandFaces(Hand(i) \ 4) += 1
        Next

Я правильно понял? Затем массив HandFaces сортируется. Я, честно говоря, не знаю как отсортировать в обратном порядке. Поэтому мне нужно смотреть на последний и предпоследний элементы. Правильно?

hasherfrog · Конфигурация компьютера

>> Правильно?
Ну да :]

Кстати... Я только сейчас увидел, что дал кусок про тасовку карт на паскале... :-P
LOL, даже ROTFLMAO

По-русски :] это будет так:

Код:

Sub shuffle()
'массив карт
Dim L(0 To 51) As Integer

'инициализация колоды
For I = 0 To 51 Step 1
L(I) = I
Next I

'печать для екселя - надо же что-то узреть :)
For I = 0 To 51 Step 1
Worksheets(1).Cells(I + 1, 1).Value = L(I)
Next I

'тасовка
For I = 51 To 0 Step -1
R = Int(52 * Rnd)
If R <> I Then
T = L(R): L(R) = L(I): L(I) = T
End If
Next I

'снова печать - результат тасования
For I = 0 To 51 Step 1
Worksheets(1).Cells(I + 1, 2).Value = L(I)
Next I

End Sub

Vadikan · Конфигурация компьютера

hasherfrog
Да я уже разобрался как отсортировать массив в обратном порядке. На самом деле мне это не нужно, без разницы какой элемент использовать для подсчета сопвадений.
Кстати, хорошая идея с

Цитата:

Масть - номер карты (0-51) mod 4 (остаток от деления) 0 - пики... 3 - бубны
Номинал - номер карты (0-51) / 4 (целочисленное деление) 0 - двойка ... 12 - туз

Я "подсократил" колоду сразу. В задании сказано создать структуру, состоящую из мастей и номиналов. Вот я "заполнял" мастями все 52 карты. На самом деле достаточно 13 по числу номиналов, и четыре масти обозначить. А потом уже из них по твоему методу все брать.

Спасибо за пояснения по тасовке колоды. Я понял теперь

Ты с VB на Си, a потом на паскаль прыгаешь, совсем меня запутал. Я же сказал, что я начинающий

На самом деле, я вижу преимущества такого метода вообще, т.к. если надо сдать две руки, то берутся просто следующие пять элементов массива. В моем же случае с одной единственной рукой я, пожалуй, оставлю свой код. Нет нужды в создании массива на 52 элемента, если нужно всего 5. Логично?

Признателен за ответы

hasherfrog · Конфигурация компьютера

У-ё.
Неправильно я расписал тасовку. Так тужился, вспоминая васик... :] Переупростил код и потерял смысл использования -1. Надо так:

Код:

'тасовка
For I = 51 To 1 Step -1
R = Int((I + 1) * Rnd)
If R <> I Then
T = L(R): L(R) = L(I): L(I) = T
End If
Next I

>> Я же сказал, что я начинающий
Стоит только начать... ;]
Удачи при сдаче.