Вычисление факторального ранга перестановки (N выберите K)
Я недавно узнал оЦНС а такжеFNSи так как они выглядят так элегантно для меня, я решил попробовать и реализовать методы для генерации комбинаций и перестановок с использованием этих методов. Я закончил свой метод для преобразования изn choose k комбинаций до ранга CSN и наоборот, но я бью головой о стену, пытаясь сделать то же самое сn choose k (уникальные) перестановки.
Благодаря@Джошуа Я получилunranking (ФНС к перестановке) метод работает:
function Pr_Unrank($n, $k, $rank) { // rank starts at 1
if ($n >= $k) {
if (($rank > 0) && ($rank <= Pr($n, $k))) {
$rank--;
$result = array();
$factoriadic = array();
for ($i = 1; $i <= ($n - $k); ++$i) {
$rank *= $i;
}
for ($j = 1; $j <= $n; ++$j) {
$factoriadic[$n - $j] = ($rank % $j) + 1; $rank /= $j;
}
for ($i = $n - 1; $i >= 0; --$i) {
$result[$i] = $factoriadic[$i];
for ($j = $i + 1; $j < $n; ++$j) {
if ($result[$j] >= $result[$i]) {
++$result[$j];
}
}
}
return array_reverse(array_slice($result, 0 - $k));
}
}
return false;
}
Это моя нынешняя попыткаranking (перестановка в FNS) метод:
function Pr_Rank($n, $k, $permutation) {
if ($n >= $k) {
$result = range(1, $n);
$factoriadic = array();
foreach ($permutation as $key => $value) {
$factoriadic[$k - $key - 1] = array_search($value, $result);
array_splice($result, $factoriadic[$k - $key - 1], 1);
}
$result = 1;
foreach (array_filter($factoriadic) as $key => $value) {
$result += F($key) * $value;
}
return $result;
}
return false;
}
И это вспомогательные функции, которые я использую:
function F($n) { // Factorial
return array_product(range($n, 1));
}
function Pr($n, $k) { // Permutations (without Repetitions)
return array_product(range($n - $k + 1, $n));
}
Проблема в,the Pr_Rank()
method only returns the correct rank when n = k
(демонстрация):
var_dump(Pr_Rank(5, 2, Pr_Unrank(5, 2, 10))); // 3, should be 10
var_dump(Pr_Rank(5, 3, Pr_Unrank(5, 3, 10))); // 4, should be 10
var_dump(Pr_Rank(5, 5, Pr_Unrank(5, 5, 10))); // 10, it's correct
Я руководствовался, используя статью Википедии, которую я связал выше, иэта статья MSDNЯ знаю, что ни один из них не рассматривает подмножества размера k, но я совершенно в неведении, как будет выглядеть такая логика ...
Я также попробовал поискать в Google и искать существующие вопросы / ответы, но пока что ничего не найдено.