Bonjour,
Je rencontre un problème avec ma fonction « union » dont voici l'erreur : " Error: This expression has type ensemble * ensemble but an expression was expected of type ensemble "
Voici ma fonction qui a pour but de calculer l’union de deux ensembles :
Besoin d'aide svp
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 let union a b = let rec aux abr acc = match abr with Vide,Vide -> Vide |Noeud(c,i,ag,ad),Vide -> abr |Vide,Noeud(c2,i2,ag2,ad2) -> acc |Noeud(c,i,ag,ad),Noeud(c2,i2,ag2,ad2) -> if (Ord.compare i i2) != 0 then (ajoute i2 ( aux ag ( aux ad acc))) else (aux ag ( aux ad acc)) in aux a b
Partager