Основные принципы генератора ходов (Bitboard и 0x88)

Начал писать свой собственный движок. Подскажите пожалуста, основные принципы генератора ходов Bitboard и 0x88. И где можно нарыть инфы по сабжу. Начал писать свой собственный (представление доски в виде одномерного массива) - получается слишком медленно.

Спасибо! Неплохоб ещеб сишный или паскалевский исходник, где 0х88 реальзовано.

Еще вопрос. В альфабете необходима продцедура, которая востанавливает позицию после совершения хода типа Unmove(*pos;move). Непойму, как сделать, чтобы востанавливала позицию после взятия.

Я думаю лучше прикрепить к move поле move.kill_figura и в нем передовать взятие. Чтобы при рекурсии не создавать лишних проблем

о скорости на данном этапе можно не думать - главное сделать рабочий движок.

ПУХ, ты садюга. По русски нет что ли статей? Дай по русски, будь человеком, а не только медведем

ProstoTak по русски тоже есть но малооо

Мужики, так что там насчет по-русски? То по-аглицки я не очень. Можно и своими словами подробно рассказать про 0х88.

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

А доска 120 - здорово! по 2 поля вокруг основной доски для аутов! А то я задолбался проверки делать на выход за границы!
Век живи - век учись - все равно дураком сдохнешь!

Насчет 120х120 - описка - конечно же просто 120!

Проверка за выход доски в 0x88 (это в десятиной системе 136)
if (square and 136)=0 then //поле на доске
if (square and 136)<>0 then //поле не на доске
Вроде не очень сложно

Переделаю свой горе-генератор в mailbox WildCat-а вреде идея неплохая и переделывать не очень много.

Да, но он вроде получается чуть медленней, так как вектора возможных ходов фигур храняться не в регистрах, а в хеш-памяти.
Хотя на 1С у меня такой генератор получился более быстрым, чем генератор 10x10 - но это специфика языка.
Или я путаю типы генераторов? И то о чем я говорю называется иначе? (список легальных ходов каждой фигуры с каждого поля)
В генераторе WildCat-а есть проверка за выходы за поле, только в отличии от 0x88 она делается по-другому.
Если в 0x88 не надо обращаться к памяти для проверки выхода за доску, то в его генераторе проверяется маркер на поле - то есть идет обращение к оперативной памяти. Но такой генератор получается чуть более быстрым чем 0x88

Все даделал майлбокс по WildCat получилось очень красиво. Немного запары с енпасантом. Теперь думаю как написать проверялку на шахи, и генерировать легальные ходы под шахом.

Кстати, проверки на шах тот ещё гемор. Времени жрёт много. Надо бы совет как оптимизировать.

Проверка на Шах для 0x88
Просьба не пугаться именам переменных, и прописанных напрямую в коде значений констант.

Code:

function check_itW(var pos:board;otkuda:byte):boolean; inline;
  var kuda:byte;
  var chto:shortint;
  begin
    with pos do
    begin
    if ChKor[otkuda-Bking+128]>0 Then
         Begin
            Check_itW:=true;
            exit;
         end;
    // Пешка.
    if BKolPeshka>0 then
    begin
      kuda:=otkuda+17;
      if ((kuda and 136)=0) and (shortint(pole[kuda])=-1) then
      Begin
        Check_itW:=true;
        exit;
      end;
      kuda:=otkuda+15;
      if ((kuda and 136)=0) and (shortint(pole[kuda])=-1) then
      Begin
        Check_itW:=true;
        exit;
      end;
    end;
    // конь
    if BKolKon>0 then
    begin
      kuda:=otkuda+byte(33);
      if ((kuda and 136)=0) and (shortint(pole[kuda])=-2) then
      Begin
        Check_itW:=true;
        exit;
      end;
      kuda:=otkuda+byte(-33);
      if ((kuda and 136)=0) and (shortint(pole[kuda])=-2) then
      Begin
        Check_itW:=true;
        exit;
      end;
       kuda:=otkuda+byte(31);
      if ((kuda and 136)=0) and (shortint(pole[kuda])=-2) then
      Begin
        Check_itW:=true;
        exit;
      end;
      kuda:=otkuda+byte(-31);
      if ((kuda and 136)=0) and (shortint(pole[kuda])=-2) then
      Begin
        Check_itW:=true;
        exit;
      end;
         kuda:=otkuda+byte(14);
      if ((kuda and 136)=0) and (shortint(pole[kuda])=-2) then
      Begin
        Check_itW:=true;
        exit;
      end;
      kuda:=otkuda+byte(-14);
      if ((kuda and 136)=0) and (shortint(pole[kuda])=-2) then
      Begin
        Check_itW:=true;
        exit;
      end;
       kuda:=otkuda+byte(18);
      if ((kuda and 136)=0) and (shortint(pole[kuda])=-2) then
      Begin
        Check_itW:=true;
        exit;
      end;
      kuda:=otkuda+byte(-18);
      if ((kuda and 136)=0) and (shortint(pole[kuda])=-2) then
      Begin
        Check_itW:=true;
        exit;
      end;
    end;
      // слон или ферзь
      if (BKolBishop+BKolFerz)>0 then
      begin
      kuda:=otkuda+byte(-17);
      while (kuda and 136)=0 do
        begin
        chto:=shortint(pole[kuda]);
        if chto<>0 then
          begin
          if (chto=-3)or(chto=-5) then
           begin
           check_itW:=true;
           exit;
           end;
          break;
          end;
          kuda:=kuda+byte(-17);
        end;

        kuda:=otkuda+byte(17);
      while (kuda and 136)=0 do
        begin
        chto:=shortint(pole[kuda]);
        if chto<>0 then
          begin
          if (chto=-3)or(chto=-5) then
           begin
           check_itW:=true;
           exit;
           end;
          break;
          end;
          kuda:=kuda+byte(17);
        end;
      kuda:=otkuda+byte(-15);
      while (kuda and 136)=0 do
        begin
        chto:=shortint(pole[kuda]);
        if chto<>0 then
          begin
          if (chto=-3)or(chto=-5) then
           begin
           check_itW:=true;
           exit;
           end;
          break;
          end;
          kuda:=kuda+byte(-15);
        end;

      kuda:=otkuda+byte(15);
      while (kuda and 136)=0 do
        begin
        chto:=shortint(pole[kuda]);
        if chto<>0 then
          begin
          if (chto=-3)or(chto=-5) then
           begin
           check_itW:=true;
           exit;
           end;
          break;
          end;
          kuda:=kuda+byte(15);
        end;
       end;
        // Ладья или ферзь
      if (BKolRook+BKolFerz)>0 then
      begin
      kuda:=otkuda+byte(-16);
      while (kuda and 136)=0 do
        begin
        chto:=shortint(pole[kuda]);
        if chto<>0 then
          begin
          if (chto=-4)or(chto=-5) then
           begin
           check_itW:=true;
           exit;
           end;
          break;
          end;
          kuda:=kuda+byte(-16);
        end;

        kuda:=otkuda+byte(16);
      while (kuda and 136)=0 do
        begin
        chto:=shortint(pole[kuda]);
        if chto<>0 then
          begin
          if (chto=-4)or(chto=-5) then
           begin
           check_itW:=true;
           exit;
           end;
          break;
          end;
          kuda:=kuda+byte(16);
        end;
      kuda:=otkuda+byte(-1);
      while (kuda and 136)=0 do
        begin
        chto:=shortint(pole[kuda]);
        if chto<>0 then
          begin
          if (chto=-4)or(chto=-5) then
           begin
           check_itW:=true;
           exit;
           end;
          break;
          end;
          kuda:=kuda+byte(-1);
        end;

      kuda:=otkuda+byte(1);
      while (kuda and 136)=0 do
        begin
        chto:=shortint(pole[kuda]);
        if chto<>0 then
          begin
          if (chto=-4)or(chto=-5) then
           begin
           check_itW:=true;
           exit;
           end;
          break;
          end;
          kuda:=kuda+byte(1);
        end;
      end;

    check_itW:=false;
    end;
  end;

Все направления прописаны напрямую в коде - чтоб не оптимизировать вызовы функций.

Обявление структуры позиции

type BoardPole = array[0..127] of byte;
type board=record
Rokir:byte; // 0000 KB DB KW DW
pole: BoardPole;
prohod:byte; //ноль, или координата
hod:shortint;//больше или меньше нуля
WKolRook:byte;//Количество Ладей
BKolRook:byte;
WKolBiShop:byte;//Количество Слонов
BKolBishop:byte;
WKolFerz:byte;//Количество Ферзей
BKolFerz:byte;
WKolKon:byte;//Количество коней
BKolKon:byte;
WKolPeshka:byte;//Количество пешек
BKolPeshka:byte;
WKing:Byte; // координата
BKing:Byte;
end;

Значицца так. Докладаю. После некоторой доделки мой генератор даёт 5 000 000 генераций всех (20) ходов из начальной позиции за 22 секунды. Это получается около 4,5 миллионов ходов в секунду генерит. Правда пока нет проверки на шах и превращение только в ферзя. Проц Celeron 900 MHz.
Это много или мало?

А как именно медленно? Какие цифры?