Questions / réponses

Evaluation de

Evaluation de

Thierno Amadou Diallo –
Vastuste arv 1

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

Erreur de compilation
--------------------------------
File "student.ml", line 12, characters 1-6:
Error: Unbound constructor Empty
--------------------------------
0/100


Vastuses Thierno Amadou Diallo

Re: Evaluation de

Marc Zeitoun –

Bonjour,

La ligne open Type contient la définition du type, il faut donc la conserver avant les définitions des fonctions.

D'autre part, la fonction btree_height n'est pas correcte, elle calcule la valeur -1.

--mz