Making some Strings aa, ab, ac etc

[ChrisL]

I want to make an array 10000 elements long

it needs to go

aa

ab

ac

ad etc etc

then

aaa

aba

aca

ada etc etc

aab

abb

acb

adb etc etc

I can't get my head around what I need to do... any ideas?

#include <Array.au3>

$alphabet = "abcdefghijklmnopqrstuvwxyz"
$aLeters = StringSplit($alphabet,"")
Local $aStrings[10001]=[0]


$iLoop = 0
$iLoopCnt = 0

For $l = 1 to 10000
    For $i = 1 to $aLeters[0]
        For $iT = 1 to $aLeters[0]
            $aStrings[0] +=1
            If $aStrings[0] > 10000 then Exitloop(3)        
            $aStrings[$aStrings[0]] = $aLeters[$i] & StringRight($aLeters[$iT],1)
        Next
        $aLeters[$i] &= StringRight($aLeters[$i],1)
    Next
Next

_ArraySort($aStrings)
_ArrayDisplay($aStrings)

[martin]

I want to make an array 10000 elements long

it needs to go

aa

ab

ac

ad etc etc

then

aaa

aba

aca

ada etc etc

aab

abb

acb

adb etc etc

I can't get my head around what I need to do... any ideas?

#include <Array.au3>
    
    $alphabet = "abcdefghijklmnopqrstuvwxyz"
    $aLeters = StringSplit($alphabet,"")
    Local $aStrings[10001]=[0]
    
    
    $iLoop = 0
    $iLoopCnt = 0
    
    For $l = 1 to 10000
        For $i = 1 to $aLeters[0]
            For $iT = 1 to $aLeters[0]
                $aStrings[0] +=1
                If $aStrings[0] > 10000 then Exitloop(3)        
                $aStrings[$aStrings[0]] = $aLeters[$i] & StringRight($aLeters[$iT],1)
            Next
            $aLeters[$i] &= StringRight($aLeters[$i],1)
        Next
    Next
    
    _ArraySort($aStrings)
    _ArrayDisplay($aStrings)

Does this work?

#include <Array.au3>
  
  $alphabet = "abcdefghijklmnopqrstuvwxyz"
  $aLeters = StringSplit($alphabet,"")
  Local $aStrings[10001]
  $aStrings[0] = 0
  $iLoop = 0
  $iLoopCnt = 0
  
  For $l = 1 to 10000/25
          For $iT = 1 to $aLeters[0]
              $aStrings[0] +=1
              If $aStrings[0] > 10000 then Exitloop(2)      
              if $aStrings[0] > 26 Then
              $aStrings[$aStrings[0]] = $aStrings[($aStrings[0]-1)/26 ] & $aLeters[$iT]
          Else
              $aStrings[$aStrings[0]] =  $aLeters[$iT]
              
              EndIf
          Next
  Next
  
;_ArraySort($aStrings)
  _ArrayDisplay($aStrings)

EDIT: Sorry ChrisL, I see it doesn't, I was aiming for the wrong thing. I'll look again.

EDIT2: Maybe it is if its like this

#include <Array.au3>

$alphabet = "abcdefghijklmnopqrstuvwxyz"
$aLeters = StringSplit($alphabet,"")
Local $aStrings[10001]
$aStrings[0] = 0
$iLoop = 0
$iLoopCnt = 0

For $l = 1 to 10000/25
        For $iT = 1 to $aLeters[0]
            $aStrings[0] +=1
            If $aStrings[0] > 10000 then Exitloop(2)        
            if $aStrings[0] > 26 Then
            $aStrings[$aStrings[0]] = $aStrings[($aStrings[0]-1)/26 ] & $aLeters[$iT]
        Else
            $aStrings[$aStrings[0]] =  "a" & $aLeters[$iT]
            
            EndIf
        Next
Next

;_ArraySort($aStrings)
_ArrayDisplay($aStrings)

Edited May 15, 2009 by martin

[ChrisL]

Thanks Martin!!

I'm trying to get round a bug in another application which can't count so I'm replacing numbers by unique alphabetical strings (just in case you were wondering!)