Wörter Drehen V 1.00

[Andesdaf]

kein großer Trick dabei, einfach für alle die zu faul sind das selber zu coden
(braucht sowiso auch nur 5 Min, wollte es aber trotzdem reinstellen).

Code: Alles auswählen

Procedure.s TurnWords(psString.s)
  String.s = psString
  Leer.s   = ""
  Lenght.i = Len(String)
  For i=0 To Lenght-1
    Leer+Mid(String,Lenght-i,1)
  Next
  ProcedureReturn Leer
EndProcedure

Debug TurnWords("Purebasic ist eine schöne Programmiersprache")

[AND51]

Und hier gleich mal die Profi-Version davon. Viel schneller, weil arbeitet mit Pointern:

Code: Alles auswählen

Procedure ReverseString(*Text.Character) 
   Protected *ende.Character=*Text+MemoryStringLength(*Text)<<#PB_Compiler_Unicode-SizeOf(Character) 
   While *Text < *Ende 
      Swap *Text\c, *ende\c 
      *Text+SizeOf(Character) 
      *ende-SizeOf(Character) 
   Wend 
EndProcedure 

test$="Hallo" 
ReverseString(@test$) 
Debug test$

Verändert direkt den übergebenen String.


Btw, diesen Thread hier gab es schon einmal.

[KeyKon]

Und der Unterschied is heftig:

Code: Alles auswählen

Procedure ReverseString(*Text.Character)
   Protected *ende.Character=*Text+MemoryStringLength(*Text)<<#PB_Compiler_Unicode-SizeOf(Character)
   While *Text < *Ende
      Swap *Text\c, *ende\c
      *Text+SizeOf(Character)
      *ende-SizeOf(Character)
   Wend
EndProcedure

Procedure.s TurnWords(psString.s)
  String.s = psString
  Leer.s   = ""
  Lenght.i = Len(String)
  For i=0 To Lenght-1
    Leer+Mid(String,Lenght-i,1)
  Next
  ProcedureReturn Leer
EndProcedure

#Check = 500000

OpenConsole()
Print ("Pointer... ")
test$ = "Purebasic ist eine schöne Programmiersprache"
Delay(100)
time = ElapsedMilliseconds()
For x = 0 To #Check
  ReverseString(@test$)
Next
pointer = ElapsedMilliseconds()-time
PrintN(StrF(pointer/1000,2)+"s")
Print ("String... ")
test$ = "Purebasic ist eine schöne Programmiersprache"
Delay(100)
time = ElapsedMilliseconds()
For x = 0 To #Check
  test$ = TurnWords(test$)
Next
string = ElapsedMilliseconds()-time
PrintN(StrF(string/1000,2)+"s")
PrintN("Pointer ist "+StrF(string/pointer,1)+" mal schneller als String")
Input()

Pointer... 0.13s
String... 7.52s
Pointer ist 57.4 mal schneller als String

[X360 Andy]

Code: Alles auswählen

Procedure.s DrehWort(DrehWort$)
  DrehWortLength = Len(DrehWort$)
  For DrehWortanfang = 1 To Drehwortlength
    DrehWortAusgabe$ + Mid(DrehWort$, DrehWortLength-DrehWortAnfang + 1, 1)
  Next : ProcedureReturn DrehWortAusgabe$
EndProcedure

Debug Drehwort("let it dreh")

Dies kann mithalten

EDIT
Verdammt das is ja fast das gleiche wie im ersten Post

Bei mir is das aber relativ schnell im vergleich

EDIT2
Verarschen ?
Damals als ich das getestet habe , war das fast genauso schnell.
Jetzt sagt der das es 71mal langsamer ist.

[AND51]

Und der Unterschied is heftig:

Bei mir ist Pointer (0,09 s) sogar 93,8 Mal schneller als String (8,84 s).

[cxAlex]

Pointer... 0.05s
String... 3.73s
Pointer ist 79.4 mal schneller als String

[rolaf]

Pointer... 0.05s
String... 3.73s
Pointer ist 79.4 mal schneller als String

Juhu, da ich es ein zwei mal im Leben benutze habe ich jetzt deutlich mehr Zeit zur Verfügung.

!thcam nniS eis ow ad ,tug tsi gnureimitpO :thetsrev hcslaf thcin hcim rhI timaD

[KeyKon]

Wiso? Das ganze steht doch stellvertretend dafür das man wenn man massiv Stringoperationen durchführen muss mit den Pointern besser gestellt ist...

[edel]

Wiso? Das ganze steht doch stellvertretend dafür das man wenn man massiv Stringoperationen durchführen muss mit den Pointern besser gestellt ist...

Nein, unterschiedlicher koennen die Funktionen ja gar nicht sein, auch wenn
das Ergebnis gleich ist. Beide sind brauchbar, wobei ich die von and51, so
nicht nutzen wuerde, da sie viel zu unsicher ist.

[KeyKon]

Inwiefern unsicher?