Discussion :

[Helix0]

Bonjour/soir
Besoin d'un code source Scheme pour afficher la somme des entiers impairs d'une liste, je débute .
Merci bien.

[shenmicke]

Bonsoir ,
le problème est un peu plus compliqué qu'il en à l'air .
Cependant j'ai peut-être trouvé ton bonheur :

(define (impairs liste)
(if (pair? liste)
(cons (car liste) (pairs (cdr liste)))
'() ) )
(define (pairs liste)
(if (pair? liste)
(impairs (cdr liste))
'() ) )

Voilà
Bon courage pour la suite

[Trap D]

Pour tester si un entier est pair tu as la fonction modulo qui renvoie le reste de la division euclidienne
exemple (modulo 5 2) -> 1

As-tu déjà utilisé la récursivité ?

[Garulfo]

Bonsoir ,
le problème est un peu plus compliqué qu'il en à l'air .
Cependant j'ai peut-être trouvé ton bonheur :

(define (impairs liste)
(if (pair? liste)
(cons (car liste) (pairs (cdr liste)))
'() ) )
(define (pairs liste)
(if (pair? liste)
(impairs (cdr liste))
'() ) )

Voilà
Bon courage pour la suite

Bravo -_- ... lui donner une solution tout machée est inutile.
Comment veux tu qu'il apprenne quoique ce soit !??
Menfinbon je pense que ce n'est pas ce qu'il voulait, il n'y a donc pas de problème.

Est-ce que ton prof utilise une technique particulière... genre programmation par flots comme le fait Abelson, Sussman et Sussman ??

Et où en es tu arrivé ?

[Trap D]

Est-ce que les techniques utilisant la fonction foldl cf ce post peuvent être considérée comme de la programmation par flots (jai un peu de mal à m'y retrouver )

[shenmicke]

désolé je ne le referais plus :s

[Garulfo]

désolé je ne le referais plus :s

Le prend pas mal hein
C'est bien de vouloir aider. Mais il faut amener l'autre à la bonne réponse.
Sinon l'autre n'apprend pas (ou peu) et ça ne l'aidera pas beaucoup.
On apprend principalement par l'erreur et la persévérance.

De toute façon la personne en question n'a pas l'air d'être très intéressée -_-

[GnuVince]

Code :

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

1
2
3
4
5
6
7
8
(require (lib "1.ss" "srfi"))

(define (sum l)
  (reduce + 0 l))

(let ((l (list 1 2 3 4 5 6 7 8 9)))
  (sum (filter odd? l)))

Edit: Version plus simple (en utilisant SRFI-1)

[Garulfo]

Code :

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

1
2
3
4
5
6
7
8
(require (lib "1.ss" "srfi"))

(define (sum l)
  (reduce + 0 l))

(let ((l (list 1 2 3 4 5 6 7 8 9)))
  (sum (filter odd? l)))

Edit: Version plus simple (en utilisant SRFI-1)

Tu n'aides pas. Tu donnes juste une solution.
Hors c'est une question de cours classique.
Encore une fois cependant Helix0 ne semble pas vraiment intéressé j'admets.

Bon maintenant vis-à-vis de ce que tu as écris: pourquoi utilises-tu srfi-1? Pourquoi pas list.ss de MzLib ? Remarque... peut être n'utilises tu pas DrScheme ?