Discussion :

[Maxence45]

Bonsoir , j'ai écrit une fonction qui calcule la somme des entiers entre x et y , mais qui me renvoie une erreur si x est supérieur à y , regardez :

Code :

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

1
2
3
4
5
6
7
8
9
(define (somme x y)
  (if (> x y)
      (erreur 'somme
              "(" x ") >"
              "(" y ")"
              )
      )
  (+ y (somme x (- y 1) ))
  )

alors c'est drole car si je fais (somme 5 3) , ça va bien me renvoyer une erreur , mais si je fais (somme 3 5) ça me renverra une erreur aussi , pourtant j'ai bien pris soin de sortir la fonction récursive du if pour éviter ce genre de probleme , mais rien n'y fait , vous avez une idée ?

merci

[GnuVince]

Parce que tu décrémentes y et eventuellement il devient plus petit que x, donc erreur.

[Maxence45]

oui je sais mais alors comment afficher mon erreur tout en gardant ma fonction récursive ?

[GnuVince]

Quel genre d'addition permet pas que son premier argument soit plus grand que son second? Je trouve l'idée complètement ridicule.

[Maxence45]

moi je dois résoudre un exercice qui me renvoit la somme des entiers entre x et y si x plus petit que y et qui me renvoit une erreur si x plus grand que y , c'est tout...je fais les exercices que je dois faire ...

[GnuVince]

Fais le en deux fonctions. Une qui fait l'addition et l'autre qui fait l'appel de cet fonction seulement si (> x y)

[Maxence45]

seulement si (> y x) tu voulais dire

[Maxence45]

bon j'ai comrpris ce que tu voulais dire , je sais le coder mais regarde :

Code :

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

1
2
3
4
5
6
7
8
9
(define (somme2 x y)
  (if (< x y)
   (somme1 m n)
    (erreur 'somme2
              "(" x ") >"
              "(" y ")"
              )
      )
  )

la fonction somme1 c'est elle qui fait la somme lais elle est codée dans un autre fichier , je peux recopier le code de la fonction sur ce code si en imbriquant un second define ?
merci

[Maxence45]

j'ai essayé ça marche , merci gnu , mais je trouve ça un peu lourd comme code j'ai du faire un cc d'une fonction dans celle ci ...

[GnuVince]

Pas besoin de la copier si tu l'as déjà; appelle la.

[Maxence45]

et si j'ai été obligé de faire le cc de LA fonction dans MA fonction sinon yavait une erreur undefinited...

[Garulfo]

C'est pas grave que pour l'instant tes fonctions soient un peu patates -_- ce qui compte c'est que tu trouves des solutions à tes problèmes.

La gestion d'erreur en Scheme peut être faite de manière beaucoup plus élégante avec la programmation par continuation. Mais là, c'est sérieusement plus difficile que où tu en es rendue. Attendons donc

Normalement, une fois que tout marche, on intègre la fonction « somme 1 » dans la fonction « somme 2 » (pis on trouve d'autres noms parce que c'est pas géant).

Première méthode

Code :

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

1
2
3
4
5
6
7
8
9
10
(define (somme2 x y)
  (define (somme1 m n) corps-somme-1)
  (if [< x y]
      (somme1 m n)
      (erreur 'somme2
              "(" x ") >"
              "(" y ")"
              )
      )
  )

Deuxième méthode (si tu as vu l'opérateur lambda, ce qui ne semble pas)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
(define (somme2 x y)
  (let ({somme1 (lambda (m n) corps-somme-1)}
        )
    (if [< x y]
        (somme1 m n)
        (erreur 'somme2
                "(" x ") >"
                "(" y ")"
                )
        )
    )
  )

Une dernière méthode consiste à laisser la fonction auxiliaire « somme1 » en dehors de « somme2 » mais à en capturer le comportement dans ce qu'on appelle la fermeture de « somme2 ». C'est la meilleure méthode.
Et au passage je les rebaptise.

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
(define (somme-sans-gestion-erreur m n) corps-somme-sans-gestion-erreur)

(define somme-avec-gestion-erreur 
  (let ({somme-aux somme-sans-gestion-erreur})
    (lambda (x y)
      (if [< x y]
          (somme-aux m n)
          (erreur 'somme2
                  "(" x ") >"
                  "(" y ")"
                  )
          )
      )
    )
  )

Si tu n'as pas vu le lambda, oublie pour l'instant.
(PS. au passage, bravo, ton code est bien plus lisible.)