// Struktura zbiorów rozłącznych
// Data: 25.03.2014
// (C)2014 mgr Jerzy Wałaszek
//---------------------------

program DSStruct;

const N = 10; // Liczba elementów

var
  R : array [0..N-1] of integer;

// Łączy dwa podzbiory w jeden
//----------------------------
procedure Union(x, y : integer);
var
  rx, ry, i : integer;
begin
  rx := R[x]; // Wyznaczamy reprezentanta
              // zbioru zawierającego x
  ry := R[y]; // i reprezentanta zbioru
              // zawierającego y
  if rx <> ry then // Łączenie wymag
                   // różnych zbiorów
    for i := 0 to N-1 do // Przeglądamy kolejne
                         // elementy tablicy R
      if R[i] = ry then
        R[i] := rx; // i zastępujemy w nich
                    // reprezentanta ry przez rx
end;

// **********************
// *** PROGRAM GŁÓWNY ***
// **********************
var
  i, j, x, y, c : integer;
begin
  Randomize;
  for i := 0 to N-1 do
    R[i] := i; // Ustawiamy tablicę R
  for i := 1 to N do
  begin
    x := random(N); // Generujemy losowe x i y
    y := random(N);
    Union(x, y); // Łączymy zbiory
  end;

  c := 0; // Licznik podzbiorów w R

  // Wyświetlamy wyniki
  for i := 0 to N-1 do
  begin
    if R[i] = i then
      inc(c); // Zliczamy reprezentantów
    writeln(i, ' is in set ', R[i]);
  end;
  writeln;
  writeln('Number of sets = ', c);
  writeln;
  for i := 0 to N-1 do
    if R[i] = i then
    begin
      write('Set ', i, ' : ');
      for j := 0 to N-1 do
        if R[j] = i then write(j, ' ');
      writeln;
    end;
  writeln;
end.

// Struktura zbiorów rozłącznych
// Data: 25.03.2014
// (C)2014 mgr Jerzy Wałaszek
//---------------------------

#include <iostream>
#include <cstdlib>
#include <ctime>

using namespace std;

const int N = 10; // Liczba elementów

int R[N];

// Łączy dwa podzbiory w jeden
//----------------------------
void Union(int x, int y)
{
  int rx, ry, i;

  rx = R[x]; // Wyznaczamy reprezentanta zbioru
             // zawierającego x
  ry = R[y]; // i reprezentanta zbioru
             // zawierającego y
  if(rx != ry) // Łączenie wymaga różnych zbiorów
    for(i = 0; i < N; i++) // Przeglądamy kolejne
                           // elementy tablicy R
      if(R[i] == ry)
        R[i] = rx; // i zastępujemy w nich
                   // reprezentanta ry przez rx
}

// **********************
// *** PROGRAM GŁÓWNY ***
// **********************
int main()
{
  int i, j, x, y, c;

  srand(time(NULL));

  for(i = 0; i < N; i++)
    R[i] = i; // Ustawiamy tablicę R
  for(i = 0; i < N; i++)
  {
    x = rand() % N; // Generujemy losowe x i y
    y = rand() % N;
    Union(x, y); // Łączymy zbiory
  }

  c = 0; // Licznik podzbiorów w R

  // Wyświetlamy wyniki
  for(i = 0; i < N; i++)
  {
    if(R[i] == i)
      c++; // Zliczamy reprezentantów
    cout << i << " is in set " << R[i] << endl;
  }

  cout << endl
       << "Number of sets = " << c
       << endl << endl;

  for(i = 0; i < N; i++)
    if(R[i] == i)
    {
      cout << "Set " << i << ": ";
      for(j = 0; j < N; j++)
        if(R[j] == i) cout << j << " ";
      cout << endl;
    }
  cout << endl;

  return 0;
}

' Struktura zbiorów rozłącznych
' Data: 25.03.2014
' (C)2014 mgr Jerzy Wałaszek
'---------------------------

const N = 10 ' Liczba elementów

Dim Shared As Integer R(0 To N-1)

' Łączy dwa podzbiory w jeden
'----------------------------
sub union_sets (ByVal x As Integer, _
               ByVal y As Integer)
  Dim As integer rx, ry, i

  rx = R(x) ' Wyznaczamy reprezentanta
            ' zbioru zawierającego x
  ry = R(y) ' i reprezentanta
            ' zbioru zawierającego y
  If rx <> ry Then ' Łączenie wymaga
                   ' różnych zbiorów
    For i = 0 To N-1 ' Przeglądamy kolejne
                     ' elementy tablicy R
      If R(i) = ry Then _
        R(i) = rx ' i zastępujemy w nich
                  ' reprezentanta
                  ' ry przez rx
    Next
  End If
End Sub

' **********************
' *** PROGRAM GŁÓWNY ***
' **********************

dim As Integer i, j, x, y, c

Randomize

For i = 0 To N-1
  R(i) = i ' Ustawiamy tablicę R
Next

For i = 0 To N-1
  x = Int(Rnd*N) ' Generujemy losowe x i y
  y = Int(Rnd*N)
  union_sets(x, y) ' Łączymy zbiory
Next

c = 0 ' Licznik podzbiorów w R

' Wyświetlamy wyniki

For i = 0 To N-1
  If R(i) = i Then _
    c += 1 ' Zliczamy reprezentantów
  Print i;" is in set ";R(i)
Next

Print
Print "Number of sets =";c
Print

For i = 0 To N-1
  If R(i) = i Then
    Print "Set";i;":";
    For j = 0 To N-1
      if R(j) = i Then Print j;
    Next
    Print
  End If
Next
Print
End

# Struktura zbiorów rozłącznych
# Data:  3.03.2024
# (C)2024 mgr Jerzy Wałaszek
#---------------------------

import random

N = 10 # Liczba elementów


# Łączy dwa podzbiory w jeden
#
#----------------------------
def union_sets(r, x, y):
    # Wyznaczamy reprezentanta
    # zbioru zawierającego x
    rx = r[x]
    # i reprezentanta
    # zbioru zawierającego y
    ry = r[y]
    # Łączenie wymaga
    # różnych zbiorów
    if rx != ry:
        # Przeglądamy kolejne
        # elementy tablicy R
        for i in range(N):
            if r[i] == ry:
                # i zastępujemy w nich
                # reprezentanta
                # ry przez rx
                r[i] = rx 


# **********************
# *** PROGRAM GŁÓWNY ***
# **********************

# Tworzymy zbiór
set_r = [i for i in range(N)]
for i in range(N):
    # Generujemy losowe x i y
    x = random.randrange(N) 
    y = random.randrange(N)
    # Łączymy zbiory
    union_sets(set_r, x, y)
# Licznik podzbiorów
c = 0
# Wyświetlamy wyniki
for i in range(N):
    if set_r[i] == i:
        c += 1 # Zliczamy reprezentantów
    print(i, "is in set", set_r[i])
print()
print("Number of sets =", c)
print()
for i in range(N):
    if set_r[i] == i:
        print("Set", i, ": ", end="")
        for j in range(N):
            if set_r[j] == i:
                print(j, "", end="")
        print()
print()