Initial data commit

Task/Permutations/Liberty-BASIC/permutations-1.basic

@@ -0,0 +1,28 @@
+n=3
+dim a(n+1)  '+1 needed due to bug in LB that checks loop condition
+    '   until (i=0) or (a(i)<a(i+1))
+    'before executing i=i-1 in loop body.
+for i=1 to n: a(i)=i: next
+do
+  for i=1 to n: print a(i);: next: print
+  i=n
+  do
+    i=i-1
+  loop until (i=0) or (a(i)<a(i+1))
+  j=i+1
+  k=n
+  while j<k
+    'swap a(j),a(k)
+    tmp=a(j): a(j)=a(k): a(k)=tmp
+    j=j+1
+    k=k-1
+  wend
+  if i>0 then
+    j=i+1
+    while a(j)<a(i)
+      j=j+1
+    wend
+    'swap a(i),a(j)
+    tmp=a(j): a(j)=a(i): a(i)=tmp
+  end if
+loop until i=0