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,372:
</lang>
<b>Output:</b>
<pre>Perm: [1, 3, 0, 2] Sign: -1
<pre>
Perm: [2, 0, 1, 2] Sign: 1
Perm: [0, 32, 1, 2] Sign: -1
Perm: [1, 3, 2, 0] Sign: 1
Perm: [2, 3, 1, 0] Sign: -1
 
Perm: [10, 01, 2, 3] Sign: -1
Perm: [31, 0, 12, 23] Sign: -1
 
Perm: [2, 0, 1, 3] Sign: 1
Perm: [10, 2, 31, 03] Sign: -1
 
Perm: [01, 2, 10, 3] Sign: -1
Perm: [02, 1, 30, 23] Sign: -1
 
Perm: [13, 21, 0, 2] Sign: 1
Perm: [1, 3, 0, 2] Sign: -1
 
Perm: [20, 3, 1, 02] Sign: -1
Perm: [3, 0, 1, 2] Sign: -1
 
Perm: [1, 0, 3, 2] Sign: 1
 
Perm: [0, 1, 23, 32] Sign: -1
Perm: [2, 1, 3, 0] Sign: 1
 
Perm: [1, 02, 23, 30] Sign: -1
Perm: [3, 2, 1, 0] Sign: 1
 
Perm: [2, 03, 1, 30] Sign: -1
Perm: [31, 13, 2, 0] Sign: -1
 
Perm: [03, 21, 12, 30] Sign: -1
Perm: [3, 1, 0, 2] Sign: 1
 
Perm: [1, 23, 0, 32] Sign: -1
Perm: [0, 3, 1, 2] Sign: 1
 
Perm: [23, 10, 01, 32] Sign: -1
Perm: [1, 0, 3, 2] Sign: 1
 
Perm: [30, 1, 03, 2] Sign: -1 </pre>
 
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>
 
=={{header|Python}}==
678

edits