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

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

Рассмотрим алгоритм получения 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-это количество цифр в перестановке
  AlreadyWas [math] i \leftarrow [/math] (NumOfPermutation-1) div f[n-i]             // сколько цифр уже полностью заняты предыдущими перестановками
  //сейчас мы должны поставить ту цифру которая еще полностью не занята, т.е. 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]