Discussion :

[Sara-SW]

Bonsoir,

je cherche à définir une fonction qui va parcourire un "string" caractère par caractère et qui incrémente une variable de 1 si elle trouve le "char" 'a', sinon on soustrait 1,
voila ma tentative

Code :

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

1
2
3
4
5
6
7
8
 
let fct m p = for i=0 to (String.length m)  do match (String.get m i) with
  |'a' -> p=p+1
  |_-> p=p-1
done;;
fct "aaaac" 0;; j'ai donc essayé avec cette derniere ligne mais j'ai une exception:
# fct "aaaac" 0;;
Exception: Invalid_argument "index out of bounds".

merci à l'avance

[prgasp77]

Bonjour,

avant toute chose, merci de mettre ton code entre les balises code et /code à l'avenir. Tu peux faire ça en cliquant sur le bouton # lors de l'édition de tes messages.

Concernant ta tentative, sache qu'elle est bien loin de « l'esprit fonctionnel » tant apprécié par nous autres, programmeurs caml. Cela n'est pas une tare, mais ne permet pas d'exploiter au maximum les capacités de ce beau langage, mais complexifie aussi sa lecture.

Je te propose de revoir ta copie à zéro. Dans un premier temps, écris une fonction compare_char qui prend un argument de type char et qui incrémente une int ref déclarée préalablement si l'argument est un 'a'.
Ensuite, tu pourra utiliser la fonction String.iter qui te simplifiera la vie :

module String: sig .. end

val iter : (char -> unit) -> string -> unit
String.iter f s applies function f in turn to all the characters of s. It is equivalent to f s.[0]; f s.[1]; ...; f s.[String.length s - 1]; ().

Cdlt,

[gasche]

Pourquoi ne pas plutôt utiliser un style fonctionnel, sans référence, en prenant en paramètre un entier et en renvoyant en retour cet entier augmenté ou diminué de 1 ? C'est à la fois plus élégant et plus agréable à utiliser.

[prgasp77]

À partir du moment où tu utilises un string, tu utilises déjà des références alors une de plus ...

[Sara-SW]

Bonjour,
eh bien j'ai réussi à trouver donc quelques infomations concernant les réferences en ocaml:

Caml n'est pas dynamique : si vous définissez un entier a valant 5, vous ne pourrez plus modifier sa valeur. On dispose pour cela d'un nouveau type : la référence. Si vous tapez let c = ref 0;;, vous obtenez un objet dont le type est « int ref » et dont vous pouvez modifier la valeur. Pour cela, on utilise l'opérateur := (deux points suivis de égal). En tapant c := 5;;, vous affectez à la référence c la valeur 5. Désormais, tout appel à la valeur de c rendra 5, jusqu'à modification. Et pour accéder à la valeur de c (si vous en avez besoin dans une fonction demandant un argument du type int), il suffit de taper !c.
Bien sûr, vous pouvez mettre n'importe quel type d'objet dans une référence : une liste, un couple, une fonction, ... Cependant, il existe deux opérations réservées aux références entières : les fonctions incr (de « incrémentation ») et decr (« décrémentation ») permettent d'augmenter ou diminuer de 1 la valeur d'une référence.

[prgasp77]

Pense à poster ta fonction finale et à cliquer sur une fois obtenue une fonction qui ... fonctionne .

[gasche]

À partir du moment où tu utilises un string, tu utilises déjà des références alors une de plus ...

D'une part le raisonnement "alors une de plus" ne vaut pas grand chose, d'autre part j'évite toujours de modifier mes chaînes et je considère personnellement qu'elles sont immutables (tout comme une méthode privée en Python n'est privée que parce qu'on en est convaincu).

[Sara-SW]

voila j'arrive à compiler ma fonction :

Code :

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

1
2
3
4
 let fct m =let r = (ref 0) in ( for i=0 to (String.length m)  do( match (String.get m i) with
				|'a' -> r:=!r+1 
				|_-> r:= !r-1 )
			      done); !r;;

cependant quand je l'applique :

Code :

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

fct "aaaaaaaaaaa";;

j'obtiens une erreur d'exception:

Code :

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

Exception: Invalid_argument "index out of bounds"

je sais pas pourquoi cela ne marche pas, est ce que quelqu'un pourrait m'éclairer.
merci à l'avance

[gorgonite]

le dernier caractère est

Code :

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

(String.length m) - 1

[Sara-SW]

le dernier caractère est

Code :

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

(String.length m) - 1

ah les erreurs d'inattention :p, et bien merci beaucoup maintenant ca marche!

Code :

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

1
2
3
4
let fct m =let r = (ref 0) in ( for i=0 to ((String.length m)-1)  do( match (String.get m i) with
				|'a' -> r:=!r+1 
				|_-> r:= !r-1 )
			      done); !r;;

[prgasp77]

D'une part le raisonnement "alors une de plus" ne vaut pas grand chose, d'autre part j'évite toujours de modifier mes chaînes et je considère personnellement qu'elles sont immutables (tout comme une méthode privée en Python n'est privée que parce qu'on en est convaincu).

Certes ... rien à dire pour ma défense ...

voila j'arrive à compiler ma fonction :

Code :

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

1
2
3
4
 let fct m =let r = (ref 0) in ( for i=0 to (String.length m)  do( match (String.get m i) with
				|'a' -> r:=!r+1 
				|_-> r:= !r-1 )
			      done); !r;;

cependant quand je l'applique :

Code :

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

fct "aaaaaaaaaaa";;

j'obtiens une erreur d'exception:

Code :

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

Exception: Invalid_argument "index out of bounds"

je sais pas pourquoi cela ne marche pas, est ce que quelqu'un pourrait m'éclairer.
merci à l'avance

Et la magnifique String.iter qui fait toute seule la boucle qu'il faut ? elle pue ?

[gorgonite]

Et la magnifique String.iter qui fait toute seule la boucle qu'il faut ? elle pue ?

attends on va lui donner un peu plus...

String.iter : (char -> unit) -> string -> unit

String.iter f s applies function f in turn to all the characters of s. It is equivalent to f s.[0]; f s.[1]; ...; f s.[String.length s - 1]; ().

plus d'infos: http://caml.inria.fr/pub/docs/manual...ef/String.html

[prgasp77]

Message #2 :p

[gorgonite]

Message #2 :p

ah oui... ben là c'est grave alors