Data commit

Task/Permutations/True-BASIC/permutations.basic

@@ -0,0 +1,40 @@
+SUB SWAP(vb1, vb2)
+    LET temp = vb1
+    LET vb1 = vb2
+    LET vb2 = temp
+END SUB
+
+LET n = 4
+DIM a(4)
+DIM c(4)
+
+FOR i = 1 TO n
+    LET a(i) = i
+NEXT i
+PRINT
+
+DO
+   FOR i = 1 TO n
+       PRINT a(i);
+   NEXT i
+   PRINT
+   LET i = n
+   DO
+      LET i = i - 1
+   LOOP UNTIL (i = 0) OR (a(i) < a(i + 1))
+   LET j = i + 1
+   LET k = n
+   DO WHILE j < k
+      CALL SWAP (a(j), a(k))
+      LET j = j + 1
+      LET k = k - 1
+   LOOP
+   IF i > 0 THEN
+      LET j = i + 1
+      DO WHILE a(j) < a(i)
+         LET j = j + 1
+      LOOP
+      CALL SWAP (a(i), a(j))
+   END IF
+LOOP UNTIL i = 0
+END