le compilateur est bloqué sur le mot "done" et m'indique une erreur de syntaxe que je vois vraiment pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 (* fonction qui parcourt une liste et donne l'element numero i *) let list_element liste numero = if numero = 1 then liste.hd else for i = 2 to numero do let element = ref((liste.tl).hd) in done; !element;;![]()
![]()
Partager