76
правок
Изменения
м
write(nextPartition := b[1..length];
→Специализация алгоритма для генерации следующего разбиения на слагаемые
// Алгоритм работает только для лексикографического порядка.
// b – массив, содержащий разбиение данного числа, length – его размер.
'''procedurefunction''' nextPartition(var b:array[1..length] of integer):partition;
'''var''' i : '''integer;'''
'''begin'''
length := length + i;
'''end;'''
'''end;'''
</code>
