let rec dyck_to_full l = match l with
| Up::Down::t -> Bin(1, Bin(1, Empty, Empty), dyck_to_full t)
| Down::t -> Bin(1, Empty, Empty)
| Up::Up::t -> Bin(1, dyck_to_full (Up::t), dyck_to_full t)
| Up::[] | [] -> Bin(1, Empty, Empty)
voici mon code actuel
certains cas sont mal gérés et il me manque parfois des noeuds
auriez-vous des indications (très peu, voir presque aucun étudiant n'a réussi la fonction)