tasks a-s

Task/Permutations/PowerBASIC/permutations.powerbasic

@@ -0,0 +1,26 @@
+defint a-z
+option base 1
+input "n=",n
+dim a(n)
+for i=1 to n: a(i)=i: next
+do
+  for i=1 to n: print a(i);: next: print
+  i=n
+  do
+    decr i
+  loop until i=0 or a(i)<a(i+1)
+  j=i+1
+  k=n
+  while j<k
+    swap a(j),a(k)
+    incr j
+    decr k
+  wend
+  if i>0 then
+    j=i+1
+    while a(j)<a(i)
+      incr j
+    wend
+    swap a(i),a(j)
+  end if
+loop until i=0