Permutations by swapping: Difference between revisions

Better format
(minor edit)
(Better format)
Line 2,335:
function output([Object[]]$A, [Int]$k, [ref]$sign)
{
"Perm: [$([String]::Join(', ', $A))] Sign: $($sign.Value) `n"
}
 
Line 2,370:
<b>Output:</b>
<pre>
Perm: [0, 1, 2, 3] Sign: 1
 
Perm: [1, 0, 2, 3] Sign: -1
 
Perm: [2, 0, 1, 3] Sign: 1
 
Perm: [0, 2, 1, 3] Sign: -1
 
Perm: [1, 2, 0, 3] Sign: 1
 
Perm: [2, 1, 0, 3] Sign: -1
 
Perm: [3, 1, 0, 2] Sign: 1
 
Perm: [1, 3, 0, 2] Sign: -1
 
Perm: [0, 3, 1, 2] Sign: 1
 
Perm: [3, 0, 1, 2] Sign: -1
 
Perm: [1, 0, 3, 2] Sign: 1
 
Perm: [0, 1, 3, 2] Sign: -1
 
Perm: [2, 1, 3, 0] Sign: 1
 
Perm: [1, 2, 3, 0] Sign: -1
 
Perm: [3, 2, 1, 0] Sign: 1
 
Perm: [2, 3, 1, 0] Sign: -1
 
Perm: [1, 3, 2, 0] Sign: 1
 
Perm: [3, 1, 2, 0] Sign: -1
 
Perm: [3, 1, 0, 2] Sign: 1
 
Perm: [1, 3, 0, 2] Sign: -1
 
Perm: [0, 3, 1, 2] Sign: 1
 
Perm: [3, 0, 1, 2] Sign: -1
 
Perm: [1, 0, 3, 2] Sign: 1
 
Perm: [0, 1, 3, 2] Sign: -1
</pre>
 
678

edits