Discussion :

[bugmenot]

Bonjour , je viens d'apprendre "reduce" et je sais m'en servir pour des cas de base, mais dès que ça devient un poil plus compliqué je ne vois pas comment faire commme par exemple :

"En utilisant la fonction reduce, donner une définition de la fonction nombre-occurrences, qui rend le nombre d'occurences d'un élément donné dans une liste."

Si vous pouvez-m'indiquez comment préceder , ça m'aiderait beaucoup.
Merci d'avance.

[bugmenot]

Alors, personne pour m'aider ?

Faut-il crér une fonction qui rend la liste des carres d'une liste ou bien il y a une meilleur méthode

[Jedai]

Le problème ne me semble pas complexe, il suffit d'utiliser reduce avec une fonction qui prend a et b en paramètres, teste b pour l'égalité avec l'élément cherché et renvoie a+1 s'il y a égalité, a sinon.

--
Jedaï

[bugmenot]

Ce n'est peut-etre pas complexe pour vous mais pour moi oui,
je n'ai vu reduce qu'hier.
Je vais essayer de faire comme tu l'as dit mais je ne crois pas que je vais réussir .
Un peu plus de précision serait la bienvenue.

Je sais faire la fonction qui rend le nombre d'occurence d'un element donné d'une liste :

Code :

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

1
2
3
4
5
6
(define (nbo a L)
    (if (pair? L)
        (if (equal? a (car L))
            (+ 1 (nbo a (cdr L)))
            (nbo a (cdr L))) 
       0))

Mais comment la faire avec reduce ?

A la limite, si vous pouvez-me donner le code en entier, je réfléchirais dessus et sa pourrais me servir de model.
Merci

Et si il faut faire une fonction interne , a quoi sert reduce ?

[Jedai]

Ok... Quel est ton scheme, et à quoi correspond "reduce" dedans ? Parce que moi je n'ai pas de "reduce" dans mon Scheme, je n'ai que "foldl" (qui m'est en fait plus familier que "reduce"). Donc que fait ton reduce exactement ?
Avec foldl (qui est très similaire à ton "reduce"), la fonction décrite s'écrirait simplement :

Code :

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

1
2
(define (count e L)
    (foldl (lambda (a b) (if (= a e) (+ b 1) b)) 0 L))

Et si il faut faire une fonction interne , a quoi sert reduce ?

A faire disparaître la récursion explicite.

--
Jedaï

[Garulfo]

[...]
A la limite, si vous pouvez-me donner le code en entier, je réfléchirais dessus et sa pourrais me servir de model.[...]

C'est le contraire... tu détailles où tu en es et on t'aide.
Nous ne sommes pas là pour faire tes devoirs mais éventuellement pour te guider. Et n'oublies pas qu'il y a ton prof pour obtenir de l'aide.

Qu'appelles tu « reduce » ? N'est ce pas une fonction fournie par ton prof ?

[bugmenot]

c'est bon j'ai reussi a le faire et j'avais oublier de venir le dire sur le forum
Désolé

[Garulfo]

C'est donc

[GnuVince]

Jedaï: reduce est pas dans Scheme directement, il est dans une librairie qui s'appelle SRFI que la plupart des Scheme fournissent en standard.

Code :

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

1
2
3
4
5
6
7
8
9
> reduce
. reference to undefined identifier: reduce
> (require (lib "1.ss" "srfi"))
> reduce
#<procedure:reduce>
> (reduce + 0 (list 1 2 3 4 5))
15
>

[Garulfo]

Ce « reduce » c'est l'opérateur « foldl » ou « foldr »

Code :

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

1
2
> (foldl + 0 (list 1 2 3 4 5))
15

C'est ce que disait Jedai.

[GnuVince]

Je sais, je faisais juste donner un complément d'information à Jedaï.

http://srfi.schemers.org/srfi-1/srfi...#FoldUnfoldMap

[Garulfo]

Je sais, je faisais juste donner un complément d'information à Jedaï.

http://srfi.schemers.org/srfi-1/srfi...#FoldUnfoldMap

Désolé