Arbin union1(Arbin a1,Arbin a2)// Ici, la fonction copieArbre permet de rendre la methode fonctionnelle
{
if(a1==NULL) return copieArbre(a2);
else if(a2==NULL) return copieArbre(a1);
else
{
if(a1->v <= a2->v) return e(copieArbre(ag(a1)),a1->v,union1(ad(a1),a2));
else return e(union1(a1,ag(a2)),a2->v,copieArbre(ad(a2)));
}
}
//copie de 2 listes
ListeCouple *copie(ListeCouple *tete1) {
ListeCouple *courant = tete1 ;
ListeCouple *Copie = NULL ;
if(courant != NULL) {
Copie = newList(copieArbre(courant->noeud)) ;
Copie->suivant = copie(courant->suivant) ;
return Copie ;
}
else return NULL ;
}
