Задача о стене

[evg_m]

Количество блоков в наличии не учитывается,

Теперь учитывается ! block[j].count
и мы перестали каждый раз генерить новую стену, вносим все изменения в исходную и откатываем назад если надо.

for j:=0 to blocks.Length-1 do begin // перебираем ВСЕ доступные нам блоки
  for x:=0 to steha.with-1 do begin // перебираем ВСЕ возможные позиции нового по горизонтали
    for y:=0 to stena.hight-1 do begin // позиции по вертикали
      for z:=0 to 3 do begin //разные расположения блока НА ОДНОМ месте (4 поворота) если будут еще и перевороты зеркальные отражения то надо изменить на 7 ???
        if stena.Enable(block[j], x, y, z) // проверяем можно ли положить выбранный(j) блок на выбранное(x,y) место выбранным(z) образом 
            and ( block[j].count>0 ) // и ЕСТЬ ЛИ ЕЩЕ такой блок !!! ЭТО конечно же можно проверять заранее (в начале цикла for j ... и при необходимости СРАЗУ переходить к следующему блоку {continue;}
         then begin 
          stena.Set(block[j], x, y, z); // КЛАДЕМ блок
          Dec(block[j].count); // для следующих итераций отмечаем взятие блока (уменьшаем их доступное количество)
                              // делаем все тоже самое , но уже для новой стенки !!та самая РЕКУРСИЯ !!!
          result:=Most(Stena, blocks); // Мы уже изменили и стену и состав блоков 
          if result then break; // У НАС ПОЛУЧИЛОСЬ и мы радостно заканчиваем КАЖДЫЙ из переборов

              // А вот если нас постигла неудача то 
          stena.RemoveBlock(block[j], x, y, z); //УБЕРЕМ блок из стены
          Inc(block[j].count); // и ВЕРНЕМ блок на место (увеличим их количество)
        end;
        if result then break;
      end;
      if result then break;
    end;
    if result then break;
  end;
end;