salut tout le monde, je suis un debutant en Ocaml. je voudrais creer une fonction qui prend en entrée un arbre de huffman et un message sous forme de liste de bits et qui rend le message codé sous forme de chaine de caractère.


type arbreHuffman = feuille of int*char
|Noeud of arbreHuffman*int*arbreHuffman

let rec decodage a l =
match l with
|[] -> (match a with
|Feuille(i,c)-> String.make 1 c
|_ -> failwith "erreur" )

|t::q -> match a with
|Feuille(i,c) -> String.make 1 c ^ decodage a q
|Noeud(g,n,d)-> if t= false then decodage g q else decodage d q

dans mon code lorsqu'on arrive a une feuille, on y reste blauqué.
est ce que vous pouvez me dire svp comment je peux faire pour revenir à la racine ?
merci d'avanceConfiguration: Linux
Firefox 3.0.5