Discussion :

[Snyper]

Bon soir à tous,


Je voudrais passer une liste de liste de string dans une matrice, la matrice est définie comme suit

Code :

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

let matriz = Array.make_matrix 10 5 [] ;;

example :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
- : string list array array =
[|[|["4"]; ["#"]; ["#"]; ["R"]; ["5"]|];
  [|["1"]; ["B"]; ["B"]; ["R"]; ["4"]|];
  [|["2"]; ["B"]; ["B"]; ["R"]; ["2"]|];
  [|["2"]; ["a"]; ["a"]; ["R"]; ["2"]|];
  [|["2"]; ["b"]; ["B"]; ["L"]; ["3"]|];
  [|["3"]; ["B"]; ["B"]; ["L"]; ["3"]|];
  [|["3"]; ["a"]; ["a"]; ["L"]; ["3"]|];
  [|["3"]; ["A"]; ["A"]; ["R"]; ["1"]|];
  [|["4"]; ["B"]; ["B"]; ["R"]; ["4"]|];
  [|["4"]; ["#"]; ["#"]; ["R"]; ["5"]|]|]
# lista_instr;;
- : string list list =
[["1"; "a"; "A"; "R"; "2"]; ["1"; "B"; "B"; "R"; "4"];
 ["2"; "B"; "B"; "R"; "2"]; ["2"; "a"; "a"; "R"; "2"];
 ["2"; "b"; "B"; "L"; "3"]; ["3"; "B"; "B"; "L"; "3"];
 ["3"; "a"; "a"; "L"; "3"]; ["3"; "A"; "A"; "R"; "1"];
 ["4"; "B"; "B"; "R"; "4"]; ["4"; "#"; "#"; "R"; "5"]]

Merci.

[Garulfo]

La dernière liste de ta liste de liste est ta première ligne de ta matrice ??
Tu l'as tu écris à la main ça ?

Il n'est pas de mon habitude de donner des solutions sans preuve d'une réflexion de la part de la personne.
Est-ce que tu as élaboré un algorithme ?

Qu'est ce qui te dérange (si on oublie la remarque que j'ai faite précédemment sur l'ordre) ? Parce que c'est quand même un problème très simple surtout si tu t'autorises les fonctions déjà existantes de ocaml dans le module Array et List.

[Snyper]

Plutôt ça….

Code :

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

1
2
3
4
5
6
7
let rec palavra_to_matrix lista_palavra matrix line col = match lista_palavra with
		[] -> matrix
		|el::cauda -> matrix.(line).(col) <- [el]; palavra_to_matrix cauda matrix (line) (col+1);; 
 
let rec instrucoes_to_matrix lista_instr matrix line = match lista_instr with
        [] -> matrix
	    |el::cauda1 -> palavra_to_matrix el matrix line 0; instrucoes_to_matrix cauda1 matrix (line+1);;

Qui de :

Code :

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

1
2
3
4
5
[["1"; "a"; "A"; "R"; "2"]; ["1"; "B"; "B"; "R"; "4"];
 ["2"; "B"; "B"; "R"; "2"]; ["2"; "a"; "a"; "R"; "2"];
 ["2"; "b"; "B"; "L"; "3"]; ["3"; "B"; "B"; "L"; "3"];
 ["3"; "a"; "a"; "L"; "3"]; ["3"; "A"; "A"; "R"; "1"];
 ["4"; "B"; "B"; "R"; "4"]; ["4"; "#"; "#"; "R"; "5"]]

Done :

Code :

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

1
2
3
4
5
6
7
8
9
10
[|[|["1"]; ["a"]; ["A"]; ["R"]; ["2"]|];
  [|["1"]; ["B"]; ["B"]; ["R"]; ["4"]|];
  [|["2"]; ["B"]; ["B"]; ["R"]; ["2"]|];
  [|["2"]; ["a"]; ["a"]; ["R"]; ["2"]|];
  [|["2"]; ["b"]; ["B"]; ["L"]; ["3"]|];
  [|["3"]; ["B"]; ["B"]; ["L"]; ["3"]|];
  [|["3"]; ["a"]; ["a"]; ["L"]; ["3"]|];
  [|["3"]; ["A"]; ["A"]; ["R"]; ["1"]|];
  [|["4"]; ["B"]; ["B"]; ["R"]; ["4"]|];
  [|["4"]; ["#"]; ["#"]; ["R"]; ["5"]|]|]

Le problème est que après avoir compiler j’ai cette erreur :

Code :

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

1
2
3
F:\Problema E_Vista>ocamlc -o Problema_E.exe "str.cma" Problema_E.ml
File "Problema_E.ml", line 21, characters 20-54:
Warning S: this expression should have type unit.

Dans la function :

Code :

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

1
2
3
let rec instrucoes_to_matrix lista_instr matrix line = match lista_instr with
        [] -> matrix
	    |el::cauda1 -> palavra_to_matrix el matrix line 0; instrucoes_to_matrix cauda1 matrix (line+1);;

Plus précisément cette ligne :

Code :

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

    |el::cauda1 -> palavra_to_matrix el matrix line 0; instrucoes_to_matrix cauda1 matrix (line+1);;

Merci.

[gasche]

Le warning vient du fait que ta première fonction, palavra_to_matrix, fait deux choses différentes : elle modifie la matrice (dans la ligne |el::cauda -> ...), puis renvoie la matrice modifiée ([] -> matrix).

Quand tu l'utilises dans ta deuxième fonction (palavra_to_matrix el matrix line 0, tu te sers de la modification de la matrice, mais tu ne récupères pas la matrice modifiée. Cela perturbe le compilateur, parce que tu mets un ; au lieu de récupérer la valeur.

Si tu veux éviter ce warning, modifie ta première fonction pour qu'elle ne renvoie rien : dans le premier cas ([]), renvoie () au lieu de matrix :

Code :

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

1
2
3
let rec palavra_to_matrix lista_palavra matrix line col = match lista_palavra with
                [] -> ()
                |el::cauda -> matrix.(line).(col) <- [el]; palavra_to_matrix cauda matrix (line) (col+1);;

Cependant, ce problème peut se reproduire quand tu voudras utiliser ta deuxième fonction. C'est à toi de voir comment le régler globalement.

[Garulfo]

Sinon tu as une solution très simple avec Array.to_list et List.map.
Ça se fait très très vite. C'est pour un devoir ou pour toi ?
Si c'est pour un devoir, il vaut mieux ne pas les utiliser.

[Snyper]

Merci, en fait c’est pour un devoir. Je te remercie pour la solution é plus important, l’explication.