Discussion :

[labatunga]

bonjour, je suis en L2 info et j'ai le problème suivant: j'ai trois listes à trois éléments (la troisième est obtenue en faisant la somme membre à membre des deux premières) et je veux créer une liste qui a pour éléments les trois listes précédentes. je suis donc arrivé à ca:

Code :

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

1
2
3
4
5
6
7
(define ex1 '(1 2 3))

(define ex2 '(4 5 6))

(define somme (list (+ (car ex1) (car ex2)) (+ (cadr ex1) (cadr ex2)) (+ (cadr (cdr ex1)) (cadr (cdr ex2)))))

(define liste_finale (list ex1 ex2 somme))

le problème est le suivant:

Code :

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

1
2
3
4
5
6
7
> liste_finale   
((1 2 3) (4 5 6) (5 7 9))

> (set-car! ex1 199)

> liste_finale
((199 2 3) (4 5 6) (5 7 9))

alors que je voudrais à la place du 5, avoir 203 (199+4).
merci d'avance

[gorgonite]

si tu veux que liste_des_sommes se modifie dès que liste1 ou liste2 se modifient.... il faut passer par de l'événementiel ou une fonction spécifique pour modifier les dites-listes

[labatunga]

merci, g réussi à le faire en comme ca

Code :

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

1
2
3
4
5
6
(define (somme ex1 ex2) (list (+ (car ex1) (car ex2))
                                        (+ (cadr ex1) (cadr ex2)) 
                                        (+ (cadr (cdr ex1))
                                        (cadr (cdr ex2)))))

(define (liste_finale ex1 ex2) (list ex1 ex2 (somme ex1 ex2)))

[Trap D]

Pour cet exercice, je te conseille de te pencher sur le mécanisme quasiquote unquote :
Ce code

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 ex1 '(1 2 3))
(define ex2 '(4 5 6))

(define somme `(list (+ (car ex1) (car ex2)) 
                            (+ (cadr ex1) (cadr ex2)) 
                            (+ (caddr ex1) (caddr ex2))))

(define liste_finale 
   `(list ex1 ex2 ,somme))

(eval liste_finale)

(set-car! ex1 199)

(eval liste_finale)

Produit en sortie :

((1 2 3) (4 5 6) (5 7 9))
((199 2 3) (4 5 6) (203 7 9))

Tu aurais pu programmer ta variable somme de cette manière

Code :

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

(define somme `(map + ex1 ex2))

[labatunga]

merci pour le tuyau, c'est justement ce dont j'avais besoin. En ce qui concerne le "map", je crois que c'est un peu chaud dans mon cas car je n'ai pas précisé que dans l'ensemble des liste à additionner, j'en ai du genre '(? ? ?). j'ai donc fait une fonction spéciale pour l'addition.
thanks