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