Bonjour,
En codant la fonction print_tree vue en TD :
type treem =
| Empty
| Bin of int * int * treem * treem;;
let spacing depth = String.make depth ' ';;
let print_node value n depth =
print_string ((spacing depth)^"->"^(string_of_int value)^"("^(string_of_int n)^")\n");;
let print_tree tree =
let rec aux t depth = match t with
| Empty -> print_string ((spacing (4*depth))^"->E\n");
| Bin(val, cnt, left, right) ->
aux right (depth+1);
print_node val cnt (4*depth);
aux left (depth+1);
in aux tree 0;;
J'obtiens cette erreur :
Characters 129-132:
| Bin(val, cnt, left, right) ->
^^^
Error: Syntax error: operator expected.
Si quelqu'un sait d'où peut provenir l'erreur, je suis preneur. Merci.