bonjour je peux savoir pourquoi mon code ne marche pas il marche dans un interpréter ocaml mais pas sur moodl
let rec btree_size t= match t with
|Empty -> 0
|Bin(x,tg,td) -> 1 + (btree_size tg) + (btree_size td)
let rec btree_height t= match t with
|Empty -> -1
|Bin(x,tg,td) -> 1 + (btree_height tg) + (btree_height td)
on me renvois sa apres evaluation
File "student.ml", line 12, characters 1-6:
Error: Unbound constructor Empty
--------------------------------
0/100