Rekursion

[Mr.L]

@Mr.L:
Bitte nutze immer Character (c) als Struktur für Zeichen.

Stimmt, habe ich nicht dran gedacht.
hier der angepasste Code

Code: Alles auswählen

EnableExplicit
#MAX_WORDLEN = 2
Global *AllowedChars	= @"abcdefghijklmnopqrstuvwxyz0123456789"
Global GeneratedWord$	= Space(#MAX_WORDLEN)
Procedure GenerateWords(wordLen = 0)
	If wordLen > #MAX_WORDLEN : ProcedureReturn : EndIf
	Debug PeekS(@GeneratedWord$ , wordLen)
	Protected.Character *CurrentChar = @GeneratedWord$ + wordLen
	Protected.Character *nextChar = *AllowedChars	
	While *nextChar\c
		*CurrentChar\c = *nextChar\c
		GenerateWords(wordLen + SizeOf(Character))
		*nextChar + SizeOf(Character)
	Wend
EndProcedure
GenerateWords()

[STARGÅTE]

Nicht ganz, in PureBasic muss man sehr genau aufpassen, wann die Anzahl von Bytes erwünscht ist, und dann wirklich die Anzahl an Zeichen erwünscht ist.

Dein wordLen gibt ja die Länge in Zeichen an, das heißt unter ASCII und Unicode immer die selbe Länge.
Genauso will PeekS, die Länge in Zeichen wissen, nicht in Byte.

Hier mal der funktionierende Code:

Code: Alles auswählen

EnableExplicit

#MAX_WORDLEN = 3 ; Zeichen
Global *AllowedChars   = @"01"
Global GeneratedWord$  = Space(#MAX_WORDLEN)

Procedure GenerateWords(wordLen = 0)
   If wordLen > #MAX_WORDLEN : ProcedureReturn : EndIf
   Debug PeekS(@GeneratedWord$ , wordLen) ; Zeichen
   Protected.Character *CurrentChar = @GeneratedWord$ + wordLen*SizeOf(Character) ; Bytes
   Protected.Character *nextChar = *AllowedChars   
   While *nextChar\c
      *CurrentChar\c = *nextChar\c
      GenerateWords(wordLen + 1) ; Zeichen
      *nextChar + SizeOf(Character) ; Bytes
   Wend
EndProcedure

GenerateWords()

Hab mal nur 0 und 1 genommen, damit man es besser sieht ^^

[NicTheQuick]

@NicTheQuick
Wie bekomme ich eine Mindestlänge rein?

Meinst du so?

Code: Alles auswählen

Procedure Words(maxLen.i)
	Protected Dim *word.Character(maxLen + 1)
	Protected Dim result.c(maxLen + 1)
	Protected i.i
	
	;Hier werden die initialen Zeichen eingestellt
	For i = 0 To maxLen - 1
		*word(i) = ?Chars
		result(i) = *word(i)\c
	Next
	
	While (Not *word(maxLen))
		Debug PeekS(@result(0))
		*word(0) + SizeOf(Character)
		If (*word(0)\c = 0)
			i = 0
			While (*word(i)\c = 0)
				If (Not *word(i + 1))
					*word(i + 1) = ?Chars
				Else
					*word(i + 1) + SizeOf(Character)
				EndIf
				result(i + 1) = *word(i + 1)\c
				*word(i) = ?Chars
				result(i) = *word(i)\c
				i + 1
			Wend
		Else
			result(0) = *word(0)\c
		EndIf
	Wend
	
EndProcedure

DataSection
	Chars:
	Data.s "abcdefghijklmnopqrstuvwxyz0123456789"
EndDataSection

Words(2) 

[Mr.L]

Danke für die Erklärung, STARGÅTE.
Ich bin aber auch zu verpeilt, heute.

[Codusa]

@NicTheQuick
Wie bekomme ich eine Mindestlänge rein?

Meinst du so?

Jup, Danke!