Самый быстрый способ сортировки массива из 7 уникальных чисел от 0 до 51 с использованием битовой маски

Delphi , Базы данных , Сортировка и Фильтр

- это использование битовой маски для отслеживания уже добавленных чисел и последующей сортировки оставшихся чисел.

Вот пример кода на Object Pascal (Delphi), который реализует этот подход:

type
  TCardMask = set of 0..51;
  TCardArray = array[0..6] of byte;
var
  CardMask: TCardMask;
  CardArray: TCardArray;

procedure AddCard(const Value: byte);
begin
  CardMask := CardMask + [Value];
end;

procedure SortCards;
var
  i, j: byte;
  Temp: byte;
begin
  for i := 0 to 6 do
  begin
    j := i;
    while (j < 6) and (CardArray[j] < CardArray[j + 1]) do
    begin
      Temp := CardArray[j];
      CardArray[j] := CardArray[j + 1];
      CardArray[j + 1] := Temp;
      j := j + 1;
    end;
  end;
end;

procedure GenerateCombinations;
var
  i, j, k, l, m, n, o: byte;
begin
  for i := 0 to 51 - 4 do
  begin
    if not (CardMask in [i]) then
      continue;
    for j := i + 1 to 51 - 3 do
    begin
      if not (CardMask in [j]) then
        continue;
      for k := j + 1 to 51 - 2 do
      begin
        if not (CardMask in [k]) then
          continue;
        for l := k + 1 to 51 - 1 do
        begin
          if not (CardMask in [l]) then
            continue;
          for m := l + 1 to 51 do
          begin
            if not (CardMask in [m]) then
              continue;
            for n := 0 to 51 - 4 do
            begin
              if not (CardMask in [n]) then
                continue;
              for o := n + 1 to 51 - 3 do
              begin
                if not (CardMask in [o]) then
                  continue;
                CardArray[0] := i;
                CardArray[1] := j;
                CardArray[2] := k;
                CardArray[3] := l;
                CardArray[4] := m;
                CardArray[5] := n;
                CardArray[6] := o;
                SortCards;
                // Добавить код для обработки отсортированного массива
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end;

begin
  CardMask := [];
  GenerateCombinations;
end.

Этот код использует битовый массив для отслеживания уже добавленных чисел и последующей сортировки оставшихся чисел. Функция AddCard добавляет число в битовый массив, а функция SortCards сортирует массив чисел. Функция GenerateCombinations генерирует все возможные комбинации чисел и вызывает функцию SortCards для сортировки каждого массива.

Создано по материалам из источника по ссылке.

данный фрагмент кода написан на Object Pascal (Delphi) и демонстрирует быстрый способ сортировки массива из 7 уникальных чисел от 0 до 51 с использованием битовой маски для отслеживания добавленных чисел и последующей сортировки оставшихся чисел

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сортировка и Фильтр ::