Permutations by swapping: Difference between revisions

minor edit
(Full test)
(minor edit)
Line 2,349:
else
{
generate $A ($k -= 1) $sign
for([Int]$i = 0;generate $iA -lt $k - 1; $i += 1)sign
for([Int]$i = 0; $i -lt $k; $i += 1)
{
if($i % 2 -eq 0)
{
$A[$i], $A[$k - 1] = $A[$k - 1], $A[$i]
}
else
{
$A[0], $A[$k - 1] = $A[$k - 1], $A[0]
}
generate $A ($k - 1) $sign
}
}
678

edits