Изменения

*<tex>\mathtt{ depth}</tex> {{---}} глубина рекурсии,*''<tex>\mathtt{list}\left</texA\right> <tex>\langle{A}\rangle </tex>'' <tex>\mathtt{K}</tex> {{---}} текущий комбинаторный объект,

*''<tex>\mathtt{list}\left</texA\right> <tex>\langle{A}\rangle</tex>'' <tex>\mathtt{alpha}</tex> {{---}} все возможные элементы комбинаторного объекта, отсортированные в лексикографическом порядке,

*<tex>\mathtt{list}\left</tex> list\left<texA\right>\langle</tex> <texright>\mathtt{list}</tex> <tex>\langlemathtt{Aans}\rangle </tex> <tex>\rangle </tex> {{---}} список, содержащий все сгенерированные объекты в нужном порядке.

  '''list<A>''' genObj('''intlist<A>''' K, '''int''' depth, '''list<list<A>>''' ans): '''if''' depth == len <font color=green> // если сформирован объект нужного размера, то возвращаем его </font> ans.push_back(K) <font color=green>// записываем объект K в ответ </font>

'''for''' i = 1 '''to ''' n

genObj(K.push_back(++ alpha[i]) genObj(K, depth + 1, ans) <font color=green> // добавляем alpha[i] в конец и вызываем функцию genObj от нового полученного префикса </font> К.pop_back()

*''<tex>\mathtt{list}\left</tex> <tex>int\langle</tex> <texright>\mathtt{int}</tex> <tex>\rangle</tex> <tex>\mathtt{a}</tex> {{---}} текущее сочетание,

*''<tex>\mathtt{list}</tex> <tex>\langle</tex> left<tex>\mathtt{list}</tex> <tex>\langleleft</tex> <tex>int\mathtt{int}</tex> <texright>\rangle</tex> <texright>\rangleans}</tex> '' {{---}} все сгенерированные сочетания в нужном порядке.

'''list<int>''' genChooses('''int''' k, '''int''' l, '''list<int>''' a, '''list<list<int>>''' ans) a[l] = k:

'''else''' '''for''' i = k + 1 '''to ''' n genChooses(i, l + 1, a ++ i, ans);

Иллюстрация работы процедуры генерирования всех сочетаний из генерации <tex dpi=150>\binom {4 по } {2.} </tex>

[[Файл:4 2 s1211.png]]