Генерации перестановок в антилексикографическом порядке

@Qwee13 · Регистрация: 17.01.2017

Author24 — интернет-сервис помощи студентам

Надо разработать алгоритм генерации всех перестановок n-элементного множества в антилексикографическом порядке.
Это вот так:

Генерации перестановок в антилексикографическом порядке

Вот, как это делается в лексикографическом порядке:

Delphi

  n := StrToInt(edt1.Text);
 
  for i := 1 to n do
  begin
    A[i] := i;
  end;
 
  repeat
    if l = kol then
      Break;
    mmo1.Lines.Insert(l, ResultPER(A, n));
    Inc(l);
 
    i := n;
    while A[i - 1] > A[i] do
      dec(i); // поиск скачка
    j := i - 1;
    h := A[j];
    while A[i + 1] > h do
      inc(i); //поиск первого меньшего элемента
    A[j] := A[i];
    A[i] := h;
    i := j + 1;
    k := n;
    while i < k do
    begin  //перестановка ”хвоста”
      h := A[i];
      A[i] := A[k];
      A[k] := h;
      inc(i);
      dec(k)
    end
  until j = 0;

Как сделать это в антилексикографическом порядоке разобраться не удалось. Нужно примерное объяснение алгоритма словами, либо код.

	25.05.2017, 16:02