Schnelle HashTable

[cxAlex]

Hallo. Ich suche ein schnelles Verfahren um eine Hashtable zu erstellen. Derzeit nutze ich PureDic (GDSL), was aber in manchen Anwendungen ab PB Version 4.2 zu IMA's führt. Die Hashtable sollte mindestens so schnell sein wie PureDic, mit der Boardsuche und auf PureBasic-Lounge hab ich nur Codes gefunden die schnellstenfalls 4x langsamer waren.

Kongret bräuchte ich folgende Funktionen:

Code: Alles auswählen

Table = CreateTable()
FreeTable(Table)
Table_Add(Table, Index.s, Value.l)
Table_Get(Table, Index.s)
Table_Exist(Table, Index.s)

Währe toll wenn jemand weiter weis/einen schnellen Algorythmus kennt.

[ts-soft]

Versuchs mal hiermit: http://www.realsource.de/downloads/doc_ ... table.html

[cxAlex]

Irgentwie hab ich das Gefühl als währe das 1:1 die selbe UserLib: compilier gleich groß,gleich schnell und immer noch dieselben IMA's.

[ts-soft]

Irgentwie hab ich das Gefühl als währe das 1:1 die selbe UserLib: compilier gleich groß,gleich schnell und immer noch dieselben IMA's.

Es liegt dieselbe statische Lib zugrunde. Der Wrapper ist von edel, der
Source wurde auch schon mal wo gepostet, schon bevor es eine andere Lib
gab
Deine IMA's kann ich ohne Source jedoch nicht nachvollziehen.

[cxAlex]

Ja, der Source währe toll. Im allgemeinen währe mir ein Include wesentlich lieber als eine UserLib.

[Kiffi]

@cxAlex:

Der edel-Wrapper läuft bei mir schon seit längerem ohne Probleme.

srod hat auch irgendwas hashtabliges veröffentlicht.
Musst mal im engl. Forum suchen

Grüße ... Kiffi

[NicTheQuick]

Von mir gibt es auch noch was.
Das kannst du ja mal ausprobieren. Ich weiß aber nicht, mit welchen PB-Version das
gemacht wurde. Könnte also sein, dass du evtl. den Source irgendwo noch ändern musst.
Das siehst du dann ja.

Hier der Link

[STARGÅTE]

ich habe auch was kleines ^^

Code: Alles auswählen

Macro NewArray(Array, Struc)
 Global Dim _#Array.Struc(0)
 Global NewList ___#Array.s()
 Procedure __#Array(Field.s)
  ForEach ___#Array()
   If ___#Array() = Field
    ProcedureReturn ListIndex(___#Array())
   EndIf
  Next
  ReDim _#Array.Struc(CountList(___#Array()))
  AddElement(___#Array())
  ___#Array() = Field
  ProcedureReturn ListIndex(___#Array())
 EndProcedure
EndMacro
Macro Array(Array, Field)
 _#Array(__#Array(Field)) 
EndMacro
 



Structure MyStructure
 Long.l
 String$
EndStructure

NewArray(MyArray, MyStructure) 

Array(MyArray,"Ich")\Long = 123
Array(MyArray,"Ich")\String$ = "LaberICH"
Array(MyArray,"Du")\Long = 246
Array(MyArray,"Du")\String$ = "LaberDU"

Debug Array(MyArray,"Ich")\String$
Debug Array(MyArray,"Irgendwer")\String$
Debug Array(MyArray,"Du")\String$
Debug Array(MyArray,"Du")\Long
Debug Array(MyArray,"Ich")\Long

[cxAlex]

@NicTheQuick:

Deinen Beitrag hab ich schon mit der Boardhilfe gefunden,ist aber zu langsam, da du da MD5 u.a. Funktionen verwendest die das ganze ausbremsen.

@Kiffi:

Den Source von srod kann ich leider nicht brauchen da ich nicht im Vorraus weis wie viele Elemente die Table enthält.

[NicTheQuick]

Da ist auch ein Callback dabei, mit dem du deinen eigenen Hash basteln kannst. Wenn du
nur Strings hashen willst, dann kannst du theoretisch als Hash auch einfach den String
selbst im Callback zurückgeben. Oder du nimmst einen CRC32 oder sonstwas schnelles.

Im Grunde kann das langsame immer nur der Hashgenerator sein.