Discussion :

[Treuze]

Bonjour,

Voici le code :

Code :

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

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

[gorgonite]

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

[Trap D]

Bonjour,

Voici le code :

Code :

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

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 :

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

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 ?

[Treuze]

Code :

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

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

[gorgonite]

sinon tu fais une fonction intermédiaire...

Code :

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

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) ))

[Trap D]

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

[Treuze]

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 ..."