Algorithm to generate words

[Milk]

@akhil, sorry this has nothing to do with your last post. Its a version of the algorithm mentioned in Wikipedia. It uses a little bit a array hacking to have a string which is also an Integer array.

  Dim x As cPermutations
  Set x = New cPermutations

  x.Text = "banana"
  
  Do While x.PermutationsLeft
    Debug.Print Join(x.NextNPermutations(7), ", ")
  Loop

Results in...

aaabnn, aaanbn, aaannb, aabann, aabnan, aabnna, aanabn
aananb, aanban, aanbna, aannab, aannba, abaann, abanan
abanna, abnaan, abnana, abnnaa, anaabn, anaanb, anaban
anabna, ananab, ananba, anbaan, anbana, anbnaa, annaab
annaba, annbaa, baaann, baanan, baanna, banaan, banana
bannaa, bnaaan, bnaana, bnanaa, bnnaaa, naaabn, naaanb
naaban, naabna, naanab, naanba, nabaan, nabana, nabnaa
nanaab, nanaba, nanbaa, nbaaan, nbaana, nbanaa, nbnaaa
nnaaab, nnaaba, nnabaa, nnbaaa