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;;
le compilateur est bloqué sur le mot "done" et m'indique une erreur de syntaxe que je vois vraiment pas