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 .