- let (long, larg) = (40, 40);;
type cellule = {mutable coor: int * int; mutable viv: bool};;
let cellule = make_matrix (long) (larg) {coor = (0, 0); viv = false};;
for i = 0 to (long - 1) do for j = 0 to (larg - 1) do (cellule.(i).(j)).coor <- (i, j); done; done;;
Après cela, en tapant cellule.(i).(j) je voudrais avoir en réponse :
- : cellule = {coor = i, j; viv = false}
Mais quelque que soit le couple (i,j) que je prend, il me caml me renvoit:
- : cellule = {coor = 39, 39; viv = false}
Quel est le problème?
Ca doit être basique, mais je ne comprends pas. Les deux boucles for imbriquées devraient bien marcher...
Merci d'avance