(04-24-2024, 11:14 AM)Circlotron Wrote: Say I have a string variable abcd$. The letters in the variable can be arranged 4 factorial or 4x3x2x1 different ways. How can I produce every combination? Find Len(abcd$) then a for/next loop Len factorial times, but what inside the loop? I'm at a loss here.

'Fakultaet iterativ mit FOR-Schleife - 11. Feb. 2023



$Console:Only

Option _Explicit



Declare Function Fakultaet(n As Integer) As _Integer64



Dim As Integer n



Locate 2, 3

Print "Iterative Berechnung der Fakultaet - (n!)"



Locate 4, 3

Input "Fakultaet von (n): ", n



Locate 5, 3

Print Using "Die Fakultaet von ### ist: ###,###,###"; n, Fakultaet(n)



End 'Hauptprogramm





Function Fakultaet (n As Integer)



  Dim As _Integer64 fakul

  Dim As Integer i



  fakul = 1

  For i = 1 To n

    fakul = fakul * i

  Next



  Fakultaet = fakul

ReDim Shared WordList(0) As String

FactorIt "1234", ""

For i = 1 To UBound(WordList)

    Print WordList(i),

Next



Sub FactorIt (word$, seed$)

    For i = 1 To Len(word$)

        seed1$ = seed$ + Mid$(word$, i, 1)

        w$ = Left$(word$, i - 1) + Mid$(word$, i + 1)

        For k = 1 To UBound(WordList)

            If WordList(k) = seed1$ + w$ Then Exit For

        Next

        If k > UBound(WordList) Then

            ReDim _Preserve WordList(k) As String

            WordList(k) = seed1$ + w$

        End If

        FactorIt w$, seed1$

    Next

End Sub

Print "Find the permutations of the word: THIS."

a$ = "THIS"

Sleep 5

Do

    a = (Rnd * 3 Mod 4) * 365 / 4 ^ 7 + 4

    b = (Rnd * 3 Mod 4) * 365 / 4 ^ 7 + 2

    c = (Rnd * 3 Mod 4) * 365 / 4 ^ 7 + 3

    d = (Rnd * 3 Mod 4) * 365 / 4 ^ 7 + 1

    Print Mid$(a$, a, 1) + Mid$(a$, b, 1) + Mid$(a$, c, 1) + Mid$(a$, d, 1); " ";

    _Delay .02

Loop Until perm = 24

(04-24-2024, 11:14 AM)Circlotron Wrote: Say I have a string variable abcd$. The letters in the variable can be arranged 4 factorial or 4x3x2x1 different ways. How can I produce every combination? Find Len(abcd$) then a for/next loop Len factorial times, but what inside the loop? I'm at a loss here.

(04-25-2024, 02:13 AM)Pete Wrote: I tried running the string "THIS" in this FreeBASIC permutation algorithm, but it got stuck in an endless loop...

Code: (Select All)

Print "Find the permutations of the word: THIS."

a$ = "THIS"

Sleep 5

Do

    a = (Rnd * 3 Mod 4) * 365 / 4 ^ 7 + 4

    b = (Rnd * 3 Mod 4) * 365 / 4 ^ 7 + 2

    c = (Rnd * 3 Mod 4) * 365 / 4 ^ 7 + 3

    d = (Rnd * 3 Mod 4) * 365 / 4 ^ 7 + 1

    Print Mid$(a$, a, 1) + Mid$(a$, b, 1) + Mid$(a$, c, 1) + Mid$(a$, d, 1); " ";

    _Delay .02

Loop Until perm = 24

I'm thinking about emailing it to Clippy, as a screen saver.

Pete

(04-24-2024, 07:41 PM)SMcNeill Wrote:

Code: (Select All)

ReDim Shared WordList(0) As String

FactorIt "1234", ""

For i = 1 To UBound(WordList)

    Print WordList(i),

Next



Sub FactorIt (word$, seed$)

    For i = 1 To Len(word$)

        seed1$ = seed$ + Mid$(word$, i, 1)

        w$ = Left$(word$, i - 1) + Mid$(word$, i + 1)

        For k = 1 To UBound(WordList)

            If WordList(k) = seed1$ + w$ Then Exit For

        Next

        If k > UBound(WordList) Then

            ReDim _Preserve WordList(k) As String

            WordList(k) = seed1$ + w$

        End If

        FactorIt w$, seed1$

    Next

End Sub

FactorIt above generates a list of values, removing duplicates for you.   For example, "goo" has two "o"s, so it can only generate "goo", "ogo", "oog", and a few of those in duplicate which we don't count.

Quote:Edit: This worked when I used alpha chars, which is what I want) to do), but when I used anything longer than 7 characters, it gave no result.