Discussion :

[Graimbault]

Bonjour/bonsoir à tous,

J'ai eu un premier problème qui consistait à découper une phrase en mot. Mon séparateur était l'espace, c'est avec la fonction split de la classe Str que j'ai réussi à le faire.

Oui mais voilà que je ne peux pas me servir de la classe Str ! Seulement de String et List.

J'ai le sentiment que c'est tout bête comme problème mais je n'arrive pas à m'en sortir...

Il faut que je dise que tant que "String.get machaine i" n'est pas un espace j'avance dans machaine et que dés que "String.get machaine i" est un espace alors je fais un String.sub de mon début de mot jusqu'à ma position -1 et je stocke le tout dans une liste. Ensuite je me relance en avançant d'une position.

Je n'arrive pas du tout à coder ce truc qui m'a l'air tout simple. Je ne suis déjà pas un programmeur hors pair mais en OCAML c'est pire que tout je n'arrive pas à m'habituer!

Merci de me donner un coup de pouce car je perd énormément de temps sur un truc qui est à coup sur un jeu d'enfant...



Cordialement,

Graimbault

[LLB]

http://caml.inria.fr/pub/docs/manual...ml#6_Splitting

[Graimbault]

Mon problème vient d'évoluer, je n'ai pas le droit de me servir de la classe Str mais que de String et List.

Encore merci pour votre aide précédente mais malheureusement maintenant elle ne m'est plus valable...


Quelqu'un pourrait-il SVP m'aider ?

Merci d'avance



Cordialement,

Graimbault

[TropMDR]

Comment tu ferais à la main ?

Travaille sur la chaine "Comment tu ferais à la main". Qu'elles sont les étapes élémentaires pour obtenir la liste ["Comment"; "tu"; "ferais"; "à"; "la"; "main"] ? Prends toi un papier à petit carreau, écris une lettre dans chaque case, et en progressant case par case avec un crayon, demande toi comment tu ferais. Une fois que tu auras l'algo, tu te posera les questions d'implémentations (sans doute avec String.sub entre autre)

[Graimbault]

Bonsoir,

Voici l'algo en pseudo langage:

Code :

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

1
2
3
4
5
6
7
8
9
10
chaine := "comment tu ferais à la main?"
debut := 0
fin := String.length chaine
 
POUR i DE 0 A (fin - 1) FAIRE
   SI (String.get chaine i) = ' ' ALORS
      (String.sub chaine debut i)::[]
      debut := i + 1
   FSI
FPOUR

Le truc c'est que pour moi la programmation fonctionnelle est un truc nouveau, voilà ce qui me désarme complètement. Je me retrouve sans cesse avec des erreur de type comme quoi ca devrait être de type unit mais ca l'est pas ou autre...

Y a t'il un problème avec mon algo ?


Merci pour votre aide



Cordialement,

Graimbault

[ManusDei]

Je pense que ton

Code :

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

debut := i + 1

est mal placé.

Je vois comment le faire avec une approche fonctionnelle sinon, mais je trouve que c'est plus compliqué dans ce cas précis.

[Graimbault]

Là est tout le problème !

Je n'ai pas du tout l'approche fonctionnelle.

En cours nous n'avons jamais travaillé sur les chaines, simplement sur des listes d'entiers avec des "match X with..." à foison.

Voilà pourquoi je suis bloqué comme pas possible sur un problème comme celui-ci...

Je ne demande pas la réponse, si vous pouviez me passer ne serait-ce que le bon algo fonctionnel se serait déjà BEAUCOUP !!!

Merci pour votre aide...



Cordialement,

Graimbault

[LLB]

Pour info, OCaml permet de faire des boucles et de modifier des variables. L'impératif est tout à fait possible. Si un problème est plus simple à résoudre en impératif, ce n'est pas la peine de s'en priver. Faire une boucle ou modifier une variable locale ne pose aucun problème.

Cela dit, tu as sûrement pour consigne d'éviter les boucles et de faire du fonctionnel pur.

Pour convertir ton pseudo-code, voici une première aide :

Code :

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

1
2
3
4
somme := 0
for i = 0 to 9 do
    somme := somme + i
renvoie somme

Code :

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

1
2
3
4
5
6
7
8
 
let rec loop sum i =
    if i <= 9 then
        loop (sum + i) (i + 1)
    else
        sum
 
loop 0 0

[ManusDei]

J'en rajoute un peu.
Tu dois lire ta chaine caractère par caractère, et tu dois trouver combien de traitements différents tu as (selon le caractère lu).

Là je vois 3 types de traitements différents.

[Graimbault]

Pffiou...

Problème réglé!

Mon binôme a "pondu" cette fonction qui fait parfaitement ce qu'on lui demande (à la fonction), voyez-vous d'éventuelles améliorations ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
let decoup text =
	let rec dec text deb i =
		if i < String.length text then
			match text.[i] with
				| ' ' -> (String.sub text deb (i-deb)) :: (dec text (i+1) (i+1))
				| _ -> (dec text deb (i+1))
		else
			(String.sub text deb (i-deb)) :: []
	in
 
	dec text 0 0
;;
 
decoup "bonjour comment vas tu" ;;

J'indique que le problème est résolu, l'optimisation éventuelle étant juste un petit bonus au cas où l'un de vous repasserai faire un petit tour par ici



Cordialement,

Graimbault

[Cacophrene]

Bonjour,

Cette fonction est tout à fait convenable. Les modifications qui peuvent y être apportées sont mineures. Par exemple, la variable text n'a pas besoin d'être passée en argument à la fonction auxiliaire dec. De même, cette version de decoup ajoute des mots vides quand il y a des espaces en fin de chaîne (par exemple "trois mots seulement "). Côté syntaxe, certaines parenthèses sont superflues, mais c'est vraiment du détail. Bravo

Je donne ci-dessous une version légèrement différente (non testée) qui résout le problème des espaces en fin de chaîne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
let decoup text =
  let len = String.length text in
    let rec decoupe mots deb i =
        if i < len then
            match text.[i] with
            | ' ' -> decoupe (ajoute mots deb i) (i + 1) (i + 1) 
          | _ -> decoupe mots deb (i + 1)
        else List.rev (ajoute mots deb i)
  and ajoute mots deb i =
    let mot = String.sub text deb (i - deb) in
    if String.length mot = 0 then mots else mot :: mots 
  in decoupe [] 0 0

Cordialement,
Cacophrène

[elaene]

Pour info voilà ma méthode :

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
19
20
21
22
23
24
25
26
 
        ''' <summary>
        ''' Découpe une chaîne trop longue sans couper les mots
        ''' </summary>
        ''' <param name="chaine">Chaîne à couper</param>
        ''' <param name="longueurMax">Longueur max de la chaîne</param>
        ''' <returns>Chaîne découpée</returns>
        ''' <remarks>Attention il faut que la chaîne soit de type phrase avec plusieurs espaces</remarks>
        Public Shared Function raccourcirChaine(ByVal chaine As String, ByVal longueurMax As Integer) As String
            Dim retour As String = chaine
 
            If (chaine.Length > longueurMax) Then
                Dim chaineTemp As String = ""
                Dim splitChaine = chaine.Split(" ")
                Dim i As Integer = 0
                While chaineTemp.Length + splitChaine(i).Length <= longueurMax
                    chaineTemp = chaineTemp & " " & splitChaine(i).ToString()
                    i = i + 1
                End While
                retour = chaineTemp
            End If
 
            Return retour
        End Function
 
    End Class