Rozłączność zbiorów

Question

Mam dwa duże zbiory, np. [150000: 25000000] i [500000:600004000]. Czy istnieje jakiś algorytm, który sprawdzi czy te zbiory są rozłączne ? W sensie czy nie posiadają żadnej części wspólnej (no może poza granicami). Potrzebuje tego do sprawdzenia czy daty([rozpoczecie_wydarzenia : zakonczenie_wydarzenia] i [rozp_wyd_2 : zak_wyd_2] w systemie UNIX nie nachodzą się na siebie. Próbowałem to zrobić jakoś za pomocą instrukcji if else, ale z marnym skutkiem..

Answer 1

Potraktuj zbiory jako listy i skorzystaj z algorytmu, procedury 

// Procedura wyznacza różnicę zbiorów A i B. Wynik w C
//----------------------------------------------------------
procedure s_difference ( p, B : PslistEl; var C : PslistEl );
begin
  C := nil;                       // Zerujemy zbiór C

  while p <> nil do               // Przeglądamy kolejne elementy zbioru A
  begin
    if not s_isin ( B, p^.data ) then  s_add ( C, p^.data );   // Jeśli elementu nie ma w B, kopiujemy
    p := p^.next;                 // Następny element z A
  end;
end;