Генерация комбинаторных объектов в лексикографическом порядке — различия между версиями
(→Алгоритм построения) |
(→Пример генерации сочетаний из N элементов по K в лексикографическом порядке) |
||
Строка 23: | Строка 23: | ||
== Примеры == | == Примеры == | ||
− | ==== Пример генерации сочетаний из N элементов по | + | ==== Пример генерации сочетаний из N элементов по M в лексикографическом порядке ==== |
− | + | Пусть <tex>gen(k, l)</tex> - процедура генерирования, где <tex>a</tex> - текущее сочетание, <tex>k</tex> - следующий элемент в сочетании, <tex>l</tex> - глубина рекурсии. | |
− | + | procedure gen(k, l : longint); | |
− | + | var | |
− | + | i : longint; | |
− | + | begin | |
− | + | a[l] := k; | |
− | + | if l = m then {объект имеет требуемый размер} | |
− | + | begin | |
− | + | for j := 1 to m do write(a[j], ' '); {выводим текущее сочетание} | |
− | + | writeln; | |
− | + | end else for i := k+1 to n do rec(i, l+1); {перебираем подходящий префикс} | |
− | + | end; | |
− | |||
− | |||
==== Пример работы процедуры генерации ==== | ==== Пример работы процедуры генерации ==== |
Версия 03:10, 8 ноября 2011
Содержание
Определение
Генерация комбинаторных объектов в лексикографическом порядке — непосредственное построение и перебор всех объектов заданного типа так, чтобы для любых двух объектов выполнялось условие: .
Алгоритм построения
Описание процедуры построения
Пусть
— процедура генерирования, где — глубина рекурсии, — комбинаторный объект.Gen(p, K) if p = <требуемый размер объекта> <выводим> K else for <все w из алфавита на котором строится K> if (K + w) = <корректный префикс требуемого объекта> Gen(p + 1, K + w)
Генерация с помощью процедуры получения следующего объекта
Составляем первый объект — получаем следующий объект — , для получаем , далее действуем также, для получая объект, пока не получим последний объект .
, для негоПримеры
Пример генерации сочетаний из N элементов по M в лексикографическом порядке
Пусть
- процедура генерирования, где - текущее сочетание, - следующий элемент в сочетании, - глубина рекурсии.procedure gen(k, l : longint); var i : longint; begin a[l] := k; if l = m then {объект имеет требуемый размер} begin for j := 1 to m do write(a[j], ' '); {выводим текущее сочетание} writeln; end else for i := k+1 to n do rec(i, l+1); {перебираем подходящий префикс} end;
Пример работы процедуры генерации
Иллюстрация работы процедуры генерирования всех перестановок из чисел