[Lisp][Débutant] Eviter une récursivité inutile

Bonjour,

Voici le code :

Code:

---

1 2 3

(define (sac-a-dos p l) ( calcul p (constree l) (car (constree l) ) ) )

---

Constree construit un nouvel arbre. Mais cet arbre est genéré deux fois
Y a t il un moyen d eviter la deuxieme recursivite sans utiliser de variable ou stocker la liste (contraintes d ecole) ?

Merci

sans variable... je ne pense pas ;)


ps: c'est d'ailleurs ce genre de profs qui transforment l'algo d'exponentiation rapide (en Ln n) en une exponentielle stupide (en n Ln n), sachant que la méthode native est en n ;)

Citation:

---

Envoyé par Treuze

Bonjour,

Voici le code :

Code:

---

1 2 3

(define (sac-a-dos p l) ( calcul p (constree l) (car (constree l) ) ) )

---

Constree construit un nouvel arbre. Mais cet arbre est genéré deux fois
Y a t il un moyen d eviter la deuxieme recursivite sans utiliser de variable ou stocker la liste (contraintes d ecole) ?

Merci

---

Tu ne peux pas utiliser un let ?

Code:

---

1 2 3 4

(define (sac-a-dos p l) (let ((cl (constree l))) ( calcul p cl (car cl ) ) ))

---

Y a peut-être un problème de parenthèse mais l'idée c'est ça.

Comment est écrit calcul ?

Code:

---

1 2 3 4

(define (calcul p l lro ) (cond ((null? (car l)) lro) (else ( calcul p (cdr l) (add p (car l) (car l) (addr lro) lro) ) ) ) )

---

Comment marche un let au niveau memoire ? Il enregistre le resultat de la fonction ?

"addr" fait l additon des termes d une A-liste

sinon tu fais une fonction intermédiaire... ;)

Code:

---

1 2 3 4 5 6

(define (inter_sac-a-dos p cl) (calcul p cl (car cl )))   (define (sac-a-dos p l) ( inter_sac-a-dos p (constree l) ))

---

Le let crée une liaison à l'intérieur de la fonction, la variable est locale à la fonction.

Merci j ai opté pour la fonction intermediaire, ca m evitera de chercher l equivalent du Let en Lisp emacs...

C est bien les contraitnes d ecole comme si en entreprise mon patron allait me dire "faites un logiciel performant mais attention, n utilisez pas toutes les fonctionnalités du langage ..."

Je crois que celà n'aurait rien d'extraordinaire...