Получение объекта по номеру

Перестановки

Рассмотрим алгоритм получения i-ой в лексикографическом порядке перестановки.

[math]f[n]=n![/math]
[math]ans[n][/math]                                                    //искомая перестановка
[math]was[n][/math]                                                    //использовали ли мы уже эту цифру в переставновке
for [math] i \leftarrow 1 [/math] to [math] n [/math] do     // n-это количество цифр в перестановке
  [math] AlreadyWas \leftarrow (NumOfPermutation-1) div f[n-i]  [/math]// сколько цифр уже полностью заняты предыдущими перестановками
  //сейчас мы должны поставить ту цифру которая еще полностью не занята, т.е. AlreadyWas+1
  for [math] j \leftarrow 1 [/math] to [math] n [/math] do
    if [math] was[j] = false [/math] 
      then  [math] CntFree++ [/math]
    if [math] CntFree = AlreadyWas+1 [/math] 
     then  [math] ans[i] \leftarrow j [/math]
           [math] was[j] \leftarrow true [/math]