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 ; }