UpsKrn.ArbreBinaire.Intersection


Fonction Optimiser(Invariant, NulAbsorbant) Intersection(A : Nul Ou ArbreBinaire(Nul Ou TypeElement)) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);

Description

La méthode Intersection permet de construire un arbre binaire par intersection des éléments de deux arbres binaires. Seuls les éléments communs aux deux arbres binaires sont conservés.

Si le premier arbre binaire est nul ou si le second arbre binaire est nul, alors le résultat est l'arbre binaire.

Exemple


/****************************************************************/

Fonction ComparerCaractere(C1 : Nul Ou Caractere, C2 : Nul Ou Caractere) Retourner ComparaisonObjet

/* Objet : Compare les caracteres. */

/****************************************************************/

Debut

Si C1==Nul Ou C2==Nul Alors


	Retourner ComparaisonNul;

Fin Si

Si C1<C2 Alors


	Retourner ComparaisonAvant;

Fin Si

Si C1>C2 Alors

	Retourner ComparaisonApres;

Fin Si

Retourner ComparaisonEgal;

Fin Fonction



Principal

/*******/

Variable

/******/

	A1 : ArbreBinaireDe Caractere;

	A2 : ArbreBinaireDe Caractere;

	A3 : ArbreBinaireDe Caractere;



Debut

/* Construction d'un arbre a trois éléments. */

A1=ArbreBinaire(ComparerCaractere, Faux);

A1+="A";

A1+="B";

A1+="C";

A2=ArbreBinaire(ComparerCaractere, Faux);

A2+="A";

A2+="C";

A2+="D";

A3=A1.Intersection(A2);

/* A3 contient 'A' et 'C'. */

Fin Principal

Voir aussi

Exclusion, Soustraction et Union pour connaître les autres opérateurs ensemblistes sur les arbres binaires.

Traduction


-	-	-	-	-	-	-	-	-