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