tasks a-s

Task/Permutations/Run-BASIC/permutations.run

@@ -0,0 +1,25 @@
+list$ = "h,e,l,l,o"		' supply list seperated with comma's
+
+while word$(list$,d+1,",") <> ""  'Count how many in the list
+d = d + 1
+wend
+
+dim theList$(d)			' place list in array
+for i = 1 to d
+  theList$(i) = word$(list$,i,",")
+next i
+
+for i = 1 to d			' print the Permutations
+ for j = 2 to d
+   perm$ = ""
+   for k = 1 to d
+    perm$ = perm$ + theList$(k)
+   next k
+   if instr(perms$,perm$+",") = 0 then print perm$ ' only list 1 time
+   perms$ 	 = perms$ + perm$ + ","
+   h$		 = theList$(j)
+   theList$(j)	 = theList$(j - 1)
+   theList$(j-1) = h$
+  next j
+next i
+end