Announcement

**spectrumizer** · 20.11.2002, 01:01

Klar, von mir aus gern

... die Wordlist war am Anfang gr��er (2.7MB auf der Platte, k.a. wieviel Worte), aber ich hab die ganzen Worte rausgefiltert, die mehr als 15 Zeichen hatten und sie ist nun gut 700k gro�. Hast du schon n Prog, wo man doppelte rausfiltern kann? Wenn nich, mach ich fix eins *g*

Gr��e,
Mari

**Hagen Reddmann** · 20.11.2002, 12:31

Wenn du den Code f�rs Dawg nutzt dann brauchst Du keinen Filter. Ein Dawg kennt keine Duplikate und ist immer sortiert. Schon w�hrend der Erzeugung des Dawgs werden keine Duplikate zugelassen. 
In einigen Test zeigte sich das das dawg demzufolge unsortierte Textworddateien schneller sortiert als Quicksort und konsorten. 
Aber warum schmei�t du die >15 Zeichenworte raus, willst du nur 15x15 Boards unterst�tzen ?? 
�brigens: die Daten von mir sind noch nicht becleant, d.h. es gibt W�rter mit 1 und >15 Buchstaben, auch W�rter mit '�' kommen vor. 

Gru� Hage

**Hagen Reddmann** · 20.11.2002, 12:58

Hi

Ich habe mal meine 200023 Wortliste nach den Scrabbleregeln bereinigt, �brig bleiben 174294. 
Hier mal der Code daf�r:

<pre>

<code>procedure CleanupForGermanScrabble;
 
function DoCopy(Found: TDawg; Word: PChar; WordLength: Integer): Boolean; register;
var
L,I: Integer;
begin
Result := False;
if (WordLength > 1) and (WordLength <= 15) then
begin
L := WordLength;
while L > 0 do
begin
Dec(L);
if Word[L] = '�' then
begin
Word[L] := 's';
for I := WordLength downto L +1 do Word[I] := Word[I -1];
Word[L +1] := 's';
Inc(WordLength);
end else
if not (Word[L] in ['a'..'z','�','�','ü']) then Exit;
end;
Found.Insert(PByte(Word), WordLength);
Found.Insert;
end;
end;
 
var
Dawg,Found: TDawg;
Map: TDawgMapping;
Symbol: TDawgChar;
begin
Dawg := TDawg.Create;
Found := TDawg.Create;
try
for Symbol := Low(Symbol) to High(Symbol) do Map[Symbol] := Symbol;
AnsiLowerBuff(Map, SizeOf(Map));
Found.SetMapping(Map, [#0,#10,#13,',',';',':']);
 
Dawg.LoadFromFile('d:\deutsch.dawg');
Dawg.Enum(@DoCopy, Found);
Found.Pack;
Found.SaveToFile('d:\scrabble.dawg');
 
WriteLn(Dawg.Count:10, Dawg.Size:10);
WriteLn(Found.Count:10, Found.Size:10);
finally
Dawg.Free;
Found.Free;
end;
end;

</code></pre>

Die Gr��e des Dawgs reduziert sich von 830Kb auf 655Kb. 

Gru� Hage

**spectrumizer** · 20.11.2002, 20:53

Hall�le!

Hab mir die Mail gesaugt und versucht, den Code zu testen. Allerdings funktionieren die nich. Bei dem aus der Mail passiert nix, wird auch keine deutsch.txt erzeugt und bei dem 2. Code meint er, dass er in der Funktion DoCopy die Methode Insert bei Found nicht kennt (is in der Unit dawg.pas auch im protected-Bereich) ...

Gr��e, Mari

**Hagen Reddmann** · 20.11.2002, 21:23

Richtig, .Insert() einfach in den public Bereiche verschieben. 

Du solltest die Dateinamen mit dem Pfad expandieren. 
Angenommen du hast alles nach D:\Test\ entzippt, dann sollte D:\test\deutsch.dawg benutzt werden.

Gru� Hage

**spectrumizer** · 21.11.2002, 01:22

Funktioniert irgendwie nich. Compilen geht aber nach Dawg.Create steigt er mit einer Zugriffsverletzung aus. Hab D5 Enterprise ... aber auch noch D6 E hier rumliegen ... k�nntes an der D-Version liegen?<pre>
<DIV>var   xDawg, Found: TDawg;  C: Char;   Map:&nb sp;TDawgMapping; begin   xDawg.Create;   <FO NT
face="Courier New" color=#000080
size=2>// Die Ausgabe von WriteLn  erfolgt nich mehr ...   writeln('--> hier');   Found.Create;  &nbs p;try     ...   end;</DIV>
<DIV>end;</DIV>
</pre&gt

**Hagen Reddmann** · 21.11.2002, 22:02

Aua, was machst Du da ??

<pre>

var
Dawg,Found: TDawg;
begin
Dawg := TDawg.Create;
Found := TDawg.Create;
try
finally
Found.Free;
Dawg.Free;
end;
end;

</pre>

Immer ObjectInstance := ObjectClass.Create !!

Gru� Hage

**spectrumizer** · 21.11.2002, 22:17

xDawg, weil Delphi sonst Probleme mit der Unit Dawg bringt. Der Compiler denkt wohl, ich mein mit Dawg.Create die Funktion Create in der Unit Dawg.pas ..

**Hagen Reddmann** · 22.11.2002, 14:07

<pre>

ok , dann aber 

uses Dawg;

var
xDawg: TDawg;
begin
xDawg := TDawg.Create;
try
finally
xDawg.Free;
end;
end;

</pre>

Gru� Hage

**spectrumizer** · 22.11.2002, 16:01

Logisch ... jetz gehts ... so stands aber in deinem Code in der Mail *g* Die erzeugte Scrabble.dawg enth�lt allerdings 0 Eintr�ge und is nur 1.060 Bytes gro� ...

Hier mal der Code:<pre>

<DIV>program dawg_impl; {$APPTYPE CONSOLE} uses   SysUtils, Windows, Daw g; procedure CleanupForGermanScrabble;   function DoCopy(Found: TDawg; Word:  PChar; WordLength: Integer): Boolea n;     register;  & nbsp;var     L, I: Inte ger;   begin     Result :=  False;     if (WordLength > 1) and  (WordLength <= 15) th en begin       L : = WordLength;     &nbs p; while L > 0 do begin        &n bsp;Dec(L);      &nbsp ;  if Word[L] = '�' then begin        &n bsp;  Word[L] := 's';       &nbs p;   for I := WordLength downto L + 1 do Word[I] := Word[I - 1];        &nb sp;  Word[L + 1] := 's';       &nbs p;   Inc(WordLength);  &nbs p;      end else        &n bsp;  if not (Word[L] in ['a'..'z', '�', '�', '�']) then Exit;      &nb sp;end;       Found.I nsert(PByte(Word), WordLength);  &nbs p;    Found.Insert;  & nbsp;  end;   end; var   xDawg, Found: TDawg;  Map: TDawgMapping;  &nb sp;Symbol: TDawgChar; begin  ..

**spectrumizer** · 22.11.2002, 16:15

<pre>... 
  xDawg := TDawg.Create; &n bsp; Found := TDawg.Create; &nbs p; try     for Symbol := Low(Symbol) to  High(Symbol) do Map[Symbol] := Symbol;     A nsiLowerBuff(Map, SizeOf(Map));  &nbs p;  Found.SetMapping(Map, [#0, #10, #13, ',', ';', ':']);     xDawg.LoadFromFi le('wordlist\deutsch.dawg');     xDawg.Enum(@DoC opy, Found);     Found .Pack;     Found.SaveToFile ('wordlist\scrabble.dawg');     WriteLn(xDawg.C ount: 10, xDawg.Size: 10); &nbsp ;   WriteLn(Found.Count: 10,&n bsp;Found.Size: 10);   finall y     xDawg.Free; &nbsp ;   Found.Free;   e nd; end; begin   CleanUpForGermanScrabble; end. </pre>

DOS-Fenster:<pre>
c:\Borland\projects\dev\Scrabble> dawg_impl     200023 & nbsp;  830376    &nbsp ;     0          4</pre&gt

**Hagen Reddmann** · 22.11.2002, 18:00

In DoCopy() �ndere mal die Charsets von Klein- auf Gro�buchstaben um. Also ['a'..'z', '�', '�', '�'] in ['A'..'Z', '�', '�', '�']) . Es k�nnte sein das Deutsch.dawg von mir so eingestellt wurde das es mit Gro�buchstaben arbeitet. 
Besser gleich mal in ['a'..'z', '�', '�', '�', 'A'..'Z', '�','�','�']) �ndern. 
Gunds�tzlich bestimmt der Aufruf Dawg.SetMapping() wie die Buchstaben der eingelesenen W�rter konvertiert werden. Im obigen Code wird z.B. f�r Found ein Zeichenmapping auf Kleinbuchstaben eingestellt. D.h. das komplette Found Dawg speichert nur Kleinbuchstaben. Die erh�ht die Kompressionsrate und beschleunigt das Suchen im Dawg.
Du kannst nat�rlich in DoCopy() einen Breakpoint setzen und dann Word:PChar auswerten. Dann siehst du selber was benutzt wurde.

Gru� Hage

**spectrumizer** · 24.11.2002, 12:08

OK, tHx

jetzt funktionierts ordentlich. Ich hab mal oberfl�chlich die beiden Wordlists verglichen (meine und deine), und ich glaube, es gibt da kaum Unterschiede. Die deutsch.txt ist 2.714.064 Bytes gro� und meine 2.713.829.

Gr��e,
Mari

**Hagen Reddmann** · 24.11.2002, 12:57

Mail mir mal deine an [email protected] 
Haste auch mal die Performance verglichen ?
Um in deinem Falle die Scrabble Racks aufzul�sen machste folgendes:

<pre>

function DoPrint(userData: Pointer; Word: PChar; WordLength: Integer): Boolean; register;
begin
Result := False;
WriteLn(Word);
end; 

var
Dawg,Found: TDawg;
Tick: Cardinal;
I: Integer;
begin
Found := TDawg.Create;
Dawg := TDawg.Create;
try
Dawg.LoadFromFile('deutsch.dawg');
Tick := GetTickCount;
for I := 1 to 10000 do
Dawg.SearchCombinatoric('ABDEEHI', Found);
Tick := GetTickCount - Tick;
WriteLn( Tick/10000:10:4, ' ms, ', Found.Count:10);
Found.Enum(@DoPrint);
finally
Found.Free;
Dawg.Free;
end;
end;

</pre>

Danke und Gru�, Hage

**spectrumizer** · 24.11.2002, 23:02

Hab geschickt.

Yo, aber der Computer soll ja auch die schon gelegten Worte mit einbeziehen. Irgendwie ganz sch�n knifflig, das umzusetzen, merk ich *g* Gr�bel jetz schon seit ner Weile, wie ich am besten die gelegten Steine im Spielfeld aufl�se ...

Gr��e, Mari

Announcement

Kombinatorik-Problem: Zeichen in 2-dimensionalem Array miteinander kombinieren

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment