Soucis avec récursivité !

Bonjour,

J'essaie de faire ceci :

Transformer ce genre d'expressions : ((x + 2) / (x - 3)) en ce genre d'expression : (/ (+ x 2) (- x 3)).

Voici ce que j'ai commencé à faire :

Code:

---

1 2 3 4 5 6 7

(defun transformer (liste) (setq element_2 (car(cdr liste))) (setq element_1 (car liste)) (setq element_3 (caddr liste)) (setq resultat (list element_2 (if (listp element_1)(setq element_1 (transformer element_1)) element_1) element_3)))

---

Cela me donne :

Code:

---

(/ (+ X 2) 2)

---

En effet, je ne peux pas faire en parallèle la transformation de l'élément 3 en même temps que l'élément 1.

Je me demande si mon algorithme est le bon vu les difficultés que j'ai à le mettre en place >< !

Quelqu'un aurait-il une meilleure idée ?

Merci par avance pour votre aide.

Je pense que pour ce genre d'exo, il faut s'intéresser aux grammaires des expressions arithmétiques.
Il faut construire un arbre syntaxique, une fois que cet arbre est construit, on le parcourt ensuite comme on veut pour avoir les différentes formes, pré/post/in fixées.
On trouve plein d'exemples sur le net, et aussi sur les forums de DVP tape en recherche "arbre" + "arithmétique" et tu auras des résultats.

Ok, je vais me renseigner.
Merci

Citation:

---

Envoyé par Lyadrielle

En effet, je ne peux pas faire en parallèle la transformation de l'élément 3 en même temps que l'élément 1.

---

Qu'est-ce qui t'en empêche?
C'est bien à ça que sert la récursivité

Citation:

---

Je me demande si mon algorithme est le bon vu les difficultés que j'ai à le mettre en place >< !

Quelqu'un aurait-il une meilleure idée ?

---

Voici un embryon de proposition (à tester):

Code:

---

1 2 3 4 5 6

(defun transformer (liste) (if (not (listp liste)) liste (list (nth 1 liste) (transformer (nth 0 liste)) (transformer (nth 2 liste)))))

---

En effet, ça marche mieux =)

Merci