Discussion :

[chlab]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

[[|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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[Cacophrene]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chlab]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,

[Alp]

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