Bonjour ,
Voici mon code pour la fonction is_perfect :
let is_perfect t =
if is_full t = false then false else
let rec aux t_list d =
match t_list with
|[]-> true
|(Empty,h)::q -> aux q d
|(Bin(x,l,r),h)::q -> aux ((l,h+1):r,h+1)::q) d
|(Bin(x,Empty,Empty),h)::q -> if d = -1 then d = h else if h = d then aux q d else false
in
aux [(t,0)] (-1)
mais je ne vois pas ou est mon erreur car sur mon ordinateur la fonction passe bien alors que sur moodle non .
Merci de votre aidre.
Cordialement ,
Arthur