Feststellen ob eine Menge in einer anderen vorkommt

[DeddyH]

Multipliziere beide Mengen. Wenn eine leere Menge dabei herauskommt, gibt es keine Überlappung.

[edit] Beispiel:

Delphi-Quellcode:

var s1, s2: set of Byte;
begin
  s1 := [1..5];
  s2 := [6..10];
  if (s1 * s2) <> [] then
    ShowMessage('Überlappung')
  else
    ShowMessage('Keine Überlappung');
  Include(s1,6);
  if (s1 * s2) <> [] then
    ShowMessage('Überlappung')
  else
    ShowMessage('Keine Überlappung');
  Exclude(s2,6);
  if (s1 * s2) <> [] then
    ShowMessage('Überlappung')
  else
    ShowMessage('Keine Überlappung');
end;

[/edit]