Permutations by swapping: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,349: / Line 2,349: @@
         else
         {
-            generate $A  ($k - 1) $sign
+            $k -= 1
-            for([Int]$i = 0; $i -lt $k - 1; $i += 1)
+            generate $A  $k $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]
+                    $A[$i], $A[$k] = $A[$k], $A[$i]
                 }
                 else
                 {
-                    $A[0], $A[$k - 1] = $A[$k - 1], $A[0]
+                    $A[0], $A[$k] = $A[$k], $A[0]
                 }
-                generate $A ($k - 1) $sign
+                generate $A $k $sign
             }
         }