Bonjour,
Je ne comprends pas d'où peut provenir mon erreur quand à la fonction nb_feuilles
que j'utilise dans la fonction parameters
. En effet, une feuille est bien un noeud dont l'arité vaut 0.
Ci-dessous le code de ma fonction nb_feuilles
:
let rec nb_feuilles t = match t with |Empty -> 0 |Bin(x,t1,t2) -> if (arity t1 = 0) && (arity t2 = 0) then (1+ nb_feuilles t1 + nb_feuilles t2) else (nb_feuilles t1 + nb_feuilles t2) ;;
Merci d'avance,
Cordialement,
Jon STARK