26 lines
572 B
Plaintext
26 lines
572 B
Plaintext
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(perm2$,perm$+",") = 0 then print perm$ ' only list 1 time
|
|
perm2$ = perm2$ + perm$ + ","
|
|
h$ = theList$(j)
|
|
theList$(j) = theList$(j - 1)
|
|
theList$(j - 1) = h$
|
|
next j
|
|
next i
|
|
end
|