pointer une matrice

Bonjour, j'ai un problème avec des listes de matrices.
Voici le code (simplifié):

Code:

---

1 2 3 4 5 6 7

let creerListe () = let mat = [|0|] and liste = ref [] in for i = 0 to 5 do mat.(0) <- i; liste := mat :: !liste done; !liste;;

---

qui renvoie

Code:

---

[[|5|];[|5|];[|5|];[|5|];[|5|]]

---

au lieu de d'une liste croissante.
Je crois que ça à quelque chose à voir avec le fait que je pointe toujours la même matrice. J'ai essayé d'y palier en mettant

Code:

---

1 2 3

for i = 0 to 5 do mat.(0) <- i; liste := (Array.copy mat) :: !liste done;

---

mais ça ne change rien...

Quelqu'un aurait-il une parade ? Merci beaucoup !!

Salut !

Ton code gagnerait en clarté s'il était simplifié et débarrassé de ses références et effets de bord. Regarde par exemple ceci :

Code:

---

1 2 3 4 5 6

let creer_matrice n = let rec loop i = if i = n then [] else [| i |] :: loop (i + 1) in loop 0

---

par exemple :

Code:

---

1 2 3 4

# creer_matrice 10;; - : int array list = [[|0|]; [|1|]; [|2|]; [|3|]; [|4|]; [|5|]; [|6|]; [|7|]; [|8|]; [|9|]]

---

N'hésite pas à me poser des questions si tu veux plus d'explication sur cette fonction. Un petit exercice qui saute aux yeux avec ce code : le rendre tail-rec.

Cordialement,
Cacophrène

merci de ta réponse Cacophrene.
J'ai compris ; en fait j'essayais absolument de caser une matrice "de référence", mais ce que tu proposes est bien plus simple en effet :ccool:

par contre, je ne sais pas ce que c'est que le tail-rec. Qu'entends tu par là ? Quelque chose comme :

Code:

---

1 2 3 4

let rec creerMatrice = function | 0 -> [] | n -> (creerMatrice (n-1)) @ [|n|];;

---

Cordialement,

http://en.wikipedia.org/wiki/Tail_recursion devrait t'aider :)