Utilisation de Reduce

bonjour a tous...

je me retrouve avec un devoir maison a faire que je pensée avoir compris..

voici les 2 exercices ou je bloque..

En utilisant reduce, donner une definition de somme-carres
tq : (somme-carres (1 2 3 4 5)) --> 55 (soit 5²+4²+3²+2²+1²)


Ma solution :

(define (somme-carres L)
(if (pair? L)
(if (pair? (cdr L))
(reduce + (* (car L) (car L)) (cdr L))
(list))
(list)))

(somme-carres (1 2 3 4 5)
ceci me renvoie 15 mais pourquoi ?


2) question.... Toujours avec REDUCE

sans reduce je trouve les deux fonctions mais lorsque j'integre Redruce rien ne marche !!!

nombre-occurences, qui a pour specification

nombre-occurences : [Valeur] * LISTE [Valeur] --> INT

c'est a dire exemple :
(nbre-occurence 2 (list 5 7 8 9)) -> 0
(nbre-occurence 3 (list)) -> ( )
(nbre-occurence 3 (list 1 2 3 4 5)) -> 1
(nbre-occurence "ma" (list 1 2 3 "ma" 3 "me" 4 "ma")) -> 2


ma solution est :

(define (nbre-oc e L)
;;; (compte-e x n) rend (n + 1) si x = e sinon n
(define (compte-e x n)
+ (if (equal? x e) 1 0) n)
(reduce compte-e 0 L))

ceci me renvoi
(nbre-occurence 2 (list 5 7 8 9)) -> 0
(nbre-occurence 3 (list)) -> 0
(nbre-occurence 3 (list 1 2 3 4 5)) -> 0
(nbre-occurence "ma" (list 1 2 3 "ma" 3 "me" 4 "ma")) -> 0

Ou est le probleme a nouveau ??


merci a tous....

T'es dans la même classe que bugmenot? Et pour ton premier problème tu fais ça vraiment trop compliqué. Je ne vais pas te donner la réponse, mais un appel simple à reduce fait l'affaire, pas besoin de faire une fonction complète.

Citation:

---

Envoyé par GnuVince

T'es dans la même classe que bugmenot? Et pour ton premier problème tu fais ça vraiment trop compliqué. Je ne vais pas te donner la réponse, mais un appel simple à reduce fait l'affaire, pas besoin de faire une fonction complète.

---

ok donc


(define ( somme-carres x L)
(reduce + ( * (car L) (car L)) (somme-carres (cdr L))))

ceci est bon ?

je suis en panne de pc, donc je n'ai plus le logiciel drscheme...

Citation:

---

Envoyé par mrc10

ok donc


(define ( somme-carres x L)
(reduce + ( * (car L) (car L)) (somme-carres (cdr L))))

ceci est bon ?

je suis en panne de pc, donc je n'ai plus le logiciel drscheme...

---

Ennuyeux pour programmer -_-

Sinon pourquoi ne pas avoir utilisé le sujet déjà créé ?

Citation:

---

Envoyé par mrc10

ok donc


(define ( somme-carres x L)
(reduce + ( * (car L) (car L)) (somme-carres (cdr L))))

ceci est bon ?

je suis en panne de pc, donc je n'ai plus le logiciel drscheme...

---

Si j'ai bien compris, l'intérêt de reduce est de supprimer la récursivité, ce qui n'est pas le cas ici.
Regarde cet exemple :

Code:

---

1 2 3 4 5 6

(define (somme-des-doubles l) (reduce (lambda (x y) (begin (display (list 'nombre 'x x)) (newline) (display (list 'nombre 'y y)) (newline) (+ (* 2 x) y))) 0 l))

---

Sortie

Citation:

---

> (somme-des-doubles (list 0 1 2 3 4 5))
(nombre x 1)
(nombre y 0)
(nombre x 2)
(nombre y 2)
(nombre x 3)
(nombre y 6)
(nombre x 4)
(nombre y 12)
(nombre x 5)
(nombre y 20)
30
> (somme-des-doubles (list 1 2 3 4 5))
(nombre x 2)
(nombre y 1)
(nombre x 3)
(nombre y 5)
(nombre x 4)
(nombre y 11)
(nombre x 5)
(nombre y 19)
29
>

---

Reduce permet d'appliquer itérativement la fonction sur les éléments de la liste, elle les ajoute les résultats (ici le double du nombre x) à un accumulateur initialisé à la première valeur de la liste, cet accumulateur étant affiché en fin de liste.