2 dimensionale sets?

[dajuhsa]

ist es möglich eine Liste von Koordinaten zu erstellen?
Also eine bessere alternative zu

Delphi-Quellcode:

XYInListeEnthalten: Array[0..9,0..9] of Boolean;

//oder

XYListe: set of [0..99];

sowas wie set of set sozusagen.
ist so etwas möglich?

[DeddyH]

AFAIK ist ein Set kein Ordinaltyp, somit geht das nicht.

[Namenloser]

Sagen wir du hast den typen tMySet = set of char und tMySetSet = set of tMySet Jetzt machst du eine Variable SetA mit den inhalten ['A','b','Y','2'] und prüfst, ob dieses Set in einem tMySetSet enthalten ist
Hab ich das richtig verstanden? Was sollte der Sinn sein? Oder steh ich jetzt irgendwie aufm Schlauch?
Glaub nicht, dass das geht, und mir erschließt sich der Sinn irgendwie nicht.

[dajuhsa]

ich meine:

mit einem
set of [0..9]
kann man genausoviel anfangen wie mit einem
array[0..9] of boolean.

mit einem
XYZ
kann man soviel machen wie mit einem
array[0..9,0..9] of boolean;

die frage: was ist ein XYZ

[3_of_8]

So geht das nicht. Ich würde hier ein Hashset verwenden, dann brauchst du nur eine zweidimensionale Hashfunktion. Alternativ geht auch eine Bitvektor mit einer Zuordnungsfunktion, die deine zwei Koordinaten umrechnet. D.h. du verwendest sowas wie TBits und wenn du sehen willst, ob (X|Y) enthalten ist, fragst du den Wert Y*Width+X ab.

[dajuhsa]

aha,äähm..leichtes ( ), aber ich denke ich weiß was du meinst.
Danke für den tipp aber dann nehm ich doch lieber das 2D-Boolean-Array

[3_of_8]

Nur so nebenbei: Bei einem Bitvektor wäre der Speicherverbrauch um den Faktor 32 geringer.

[dajuhsa]

sry aber ich hab keine ahnung was ein bitverktor is *schamvoll in der ecke verkriech *

[3_of_8]

Ein Bitvektor ist im Prinzip das, was die Pascal/Delphi-Sets machen oder auch die Klasse TBits: Man benutzt einfach einzelne Bits, um einen Boolean-Wert zu speichern.

In einem 32-Bit-Cardinal hat man z.B. 32 Bits, kann also 32 Booleans darin kodieren. Realisiert wird das über die binären Operatoren von Delphi.

Zum Abfragen eines Bits verwendet man sowas:

Delphi-Quellcode:

function GetBit(const Vector, Index: Cardinal): Boolean;
begin
  Result:=Vector and (1 shl Index)>0;
end;

Und zum Setzen:

Delphi-Quellcode:

procedure SetBit(var Vector: Cardinal; const Index: Cardinal; const Value: Boolean);
begin
  if Value then
    Vector:=Vector or (1 shl Index)
  else
    Vector:=Vector and not (1 shl Index);
end;

[Namenloser]

Ich versteh immer noch nicht, was ein 2 dimensionales Set bringen soll. Ein Set ist dazu da, um zu prüfen, ob ein Wert in einer Menge enthalten ist. Dabei ist es doch ganz egal, ob die Menge eindimensional, zweidimensional, dreidimensional, dreickig, viereckig oder rund ist

[add] ich glaub ich halt mich lieber hier raus, da ich wohl irgendwie auf dem Schlauch stehe... [/add]