76
правок
Изменения
→Специализация алгоритма для генерации следующей мультиперестановки
* Меняем его с минимальным элементом, большим нашего, стоящим правее.
* Переворачиваем правую часть.
'''function''' nextMultiperm(var b:array[1..N] of integer):mutiperm;
'''var''' i , j : '''integer''';
'''begin'''
i := N - 1;
'''while''' (i > 0) '''and''' (b[i] >= b[i + 1]) '''do'''
dec(i);
'''for''' j := i + 1 '''to''' (N + i) '''div''' 2 '''do'''
swap(b[j], b[N - j + i + 1]);
'''end'''
'''else'''
'''begin'''
'''end;'''
'''end;'''
