SUPER ALGO ANAGRAMMES

Commentaire de stevebelgium le 14/04/2003 15:20:54

Sorry , English ...

Nice program . If you want to speed up !
Maybe a suggestion . I think dat REDIM = SLOW

Solution = predict the number of combinations

3 characters = 3! = 3*2*1 = 6 combinations
4 characters = 4! = 4*3*2*1 = 24 combinations

here is the code . Have fun !

Option Explicit
Private ForbIndex() As Integer, AWordsNum As Long, TempWord As String

Public Sub CreateAnagram(ByVal StrWord As String, ByRef WordsTable() As String, Optional ByVal StartChr As Integer)
    
    Dim Numer_of_combinations  As Integer
    
    Numer_of_combinations = fac(Len(StrWord))
    
    ReDim WordsTable(Numer_of_combinations - 1)
    
    CreateAnagram2 StrWord, WordsTable()
    
End Sub
Public Sub CreateAnagram2(ByVal StrWord As String, ByRef WordsTable() As String, Optional ByVal StartChr As Integer)
If StartChr = 0 Then
    ReDim ForbIndex(1 To Len(StrWord))
    StartChr = 1: AWordsNum = 0
End If
Dim ChrIndex As Integer, VerifForb As Integer, CreateWord As Integer
For ChrIndex = 1 To Len(StrWord)
    For VerifForb = 1 To StartChr - 1
        If ForbIndex(VerifForb) = ChrIndex Then GoTo NoTest
    Next VerifForb
    ForbIndex(StartChr) = ChrIndex
    TempWord = TempWord & Mid$(StrWord, ChrIndex, 1)
    If StartChr < Len(StrWord) Then
        CreateAnagram2 StrWord, WordsTable(), StartChr + 1
    ElseIf StartChr = Len(StrWord) Then
        'ReDim Preserve WordsTable(AWordsNum)
        WordsTable(AWordsNum) = TempWord
        AWordsNum = AWordsNum + 1
    End If
    TempWord = Left$(TempWord, Len(TempWord) - 1)
NoTest:
Next ChrIndex
End Sub

Function fac(getal As Long) As Long
    
    Dim res As Long
    
        If getal = 0 Then
            fac = 1
        Else
            res = 1
            While getal > 0
                res = res * getal
                getal = getal - 1
            Wend
            fac = res
        End If
            
End Function

Commentaire de Bricomix le 14/04/2003 19:24:22

En effet stevebelgium c'est intelligent. Je va le modifier tout de suite (et qq'autres ameliorations p'tet aussi). Alain Proviste : donne des comparaisons entre le tiens et le miens niveau temps.

Commentaire de Bricomix le 14/04/2003 19:52:46

Ben le miens c'est un 1700+ @ 1600MHz

Commentaire de Alain Proviste le 14/04/2003 20:26:54 administrateur CS

C trop bon lol. Pas la peine de tenter de faire une comparaison. Je vais améliorer ma source et on en reparle. ( J'ai été stupide de passer par un tablo temporaire, toi t'as été moins con sur ce coup. )

GOGOGO de plus en plus vite.

Commentaire de Bricomix le 14/04/2003 20:51:22

Alain Proviste > pour 8 lettres, mon algo se montre (sur mon ordi) 1448x plus rapide !

Commentaire de apxa le 15/04/2003 11:44:39

config: XP 1600+, 512mo
mot: ANAGRAMME
compilé (0.94 s)
ide       (2.42 s)

hehe ;)

Commentaire de Bricomix le 15/04/2003 13:28:38

J'ai fait une update, et maintenant regardez les nouveaux temps !

Commentaire de Bricomix le 17/04/2003 10:39:08

Alain P : merci !

Commentaire de Florent le 22/04/2003 16:50:43

Comme je disait, j'espère que fana des chiffres et des lettres va passer par là....
VOYELLE

Commentaire de Bricomix le 11/05/2004 19:00:57

Je suis sur un truc important ;)

J'essaierai d'y repenser :)

Commentaire de Alain Proviste le 22/10/2005 14:13:54 administrateur CS

c'est plus rapide d'appliquer un algo pour enlever les doublons après ce traitement