Discussion :

[Capitain_jupi]

Bonjour

Alors je cherche à réaliser une fonction sous ocaml qui fait une rotation d'une chaîne de caractère et enregistre à chaque tour le résultat dans un tableau de n case (ou n vaut la longueur de la chaîne de caractère)

par exemple si je lance : rotate "salut"
Il devrait me renvoyer :

Code :

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

- String Array = [|aluts ; lutsa ; utsal ; tsalu ; salut|]

Donc voici le code que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
let rotation s =
let n = String.length s in
let tab = Array.make n "vide" and tmp = ref s.[0] in
for i = 0 to n-1 do
tmp := s.[0];
for i2 = 0 to n-2 do
s.[i2] <- s.[i2 + 1];
done;
s.[n-1]<- !tmp;
tab.(i) <- s;
 
done;
tab;;

et malheuresement il me retourne :

Code :

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

: - String Array = [|salut ; salut ; salut ; salut ; salut|]

Qui est la dernière valeur de s, pourtant s passe bien par toutes les valeurs souhaitées, et ces valeurs sont bien enregistrées dans le tableau, seulement il réécrit toujours au dessus :

pour i = 0 le tableau est

Code :

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

[|aluts;vide;vide;vide;vide|]

pour i = 1 le tableau est

Code :

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

[|lutsa; lutsa ; vide ;vide;vide|]

pour i = 3 le tableau est

Code :

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

[|uttsal; utsal ; utsal ;vide;vide|]

etc...

Et c'est la que je ne comprend pas car j’insère s dans dans la case du tableau qui correspond à i alors pourquoi les cases du tableau qui sont plus petite que i changent aussi ?

Merci

[prgasp77]

Ce que tu insères dans ton tableau n'est pas une copie de s, mais s elle-même. Lorsque tu la modifies par la suite, toutes ses « occurrences » sont modifiées.

Il te faut pour prévenir cela faire des copies de ta string s. Pour ce faire, je te renvoie vers la documentation du module String.

Cdlt,

[Capitain_jupi]

exact merci
J'ai modifié

Code :

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

tab.(i) <- s en tab.(i) <- String.copy s

et ça fonctionne
Problème résolu