Sync

Task/Permutations/PowerBASIC/permutations.powerbasic

@@ -1,26 +1,36 @@
-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
+  #COMPILE EXE
+  #DIM ALL
+  GLOBAL a, i, j, k, n  AS INTEGER
+  GLOBAL d, ns, s AS STRING 'dynamic string
+  FUNCTION PBMAIN () AS LONG
+  ns = INPUTBOX$("   n =",, "3") 'input n
+  n = VAL(ns)
+  DIM a(1 TO n) AS INTEGER
+  FOR i = 1 TO n: a(i)= i: NEXT
+  DO
+    s = " "
+    FOR i = 1 TO n
+      d = STR$(a(i))
+      s = BUILD$(s, d) '  s & d concatenate
+    NEXT
+    ? s  'print and pause
+    i = n
+    DO
+     DECR i
+    LOOP UNTIL i = 0 OR a(i) < a(i+1)
+    j = i+1
+    k = n
+    DO WHILE j < k
+      SWAP a(j), a(k)
+      INCR j
+      DECR k
+    LOOP
+    IF i > 0 THEN
+      j = i+1
+      DO WHILE a(j) < a(i)
+        INCR j
+      LOOP
+      SWAP a(i), a(j)
+    END IF
+  LOOP UNTIL i = 0
+  END FUNCTION