Discussion :

[sperca]

Salut,

Alors moi je débute en scheme mais pour éliminer les doublons d'une liste déjà triée j'aurais fait quelque chose dans ce style :

Code :

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

1
2
3
4
5
6
7
8
(define (doublons l)
  (cond ((null? (cdr l)) (car l))
	((eq? (car l) (car (cdr l))) (doublons (cdr l)))
	(else (append (list (car l)) (list (doublons (cdr l)))))))

(define l (list 1 2 2 2 4 4 5))
(display (doublons l))
(newline)

Alors par contre on ne peut pas envoyer de liste vide (réflexe du codage en C, je ne sais pas si en scheme on s'en préocupe ?). Mais à part ça ça fonctionne. Mais ça ne ressemble pas à ce que vous avez montré au-dessus.

Je me trompe ou vous avez traité le cas général et c'est pour ça que je n'ai pas compris ?

Merci.

[Garulfo]

Salut,

Alors moi je débute en scheme mais pour éliminer les doublons d'une liste déjà triée j'aurais fait quelque chose dans ce style :

Code :

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

1
2
3
4
5
6
7
8
(define (doublons l)
  (cond ((null? (cdr l)) (car l))
	((eq? (car l) (car (cdr l))) (doublons (cdr l)))
	(else (append (list (car l)) (list (doublons (cdr l)))))))

(define l (list 1 2 2 2 4 4 5))
(display (doublons l))
(newline)

Alors par contre on ne peut pas envoyer de liste vide (réflexe du codage en C, je ne sais pas si en scheme on s'en préocupe ?). Mais à part ça ça fonctionne. Mais ça ne ressemble pas à ce que vous avez montré au-dessus.

Je me trompe ou vous avez traité le cas général et c'est pour ça que je n'ai pas compris ?

Merci.

Pour un débutant c'est pas mal.
Les erreurs :

• n'utilise pas (append (list x) y) mais (cons x y) ce qui est quand même plus simple;
• il faut traiter le cas de la liste vide — une liste vide n'a pas de doublon et donc la valeur de retour est elle-même — ce qui se fait en ajoutant la clause (null? l)

Finalement, KindPlayer traitait le cas général et non la suppression de « begaiement » qui est ce que demandait l'auteur du fil de discussion.

[Jedai]

Salut,

Alors moi je débute en scheme mais pour éliminer les doublons d'une liste déjà triée j'aurais fait quelque chose dans ce style :

Code :

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

1
2
3
4
5
6
7
8
(define (doublons l)
  (cond ((null? (cdr l)) (car l))
	((eq? (car l) (car (cdr l))) (doublons (cdr l)))
	(else (append (list (car l)) (list (doublons (cdr l)))))))

(define l (list 1 2 2 2 4 4 5))
(display (doublons l))
(newline)

Alors par contre on ne peut pas envoyer de liste vide (réflexe du codage en C, je ne sais pas si en scheme on s'en préocupe ?). Mais à part ça ça fonctionne. Mais ça ne ressemble pas à ce que vous avez montré au-dessus.

Je me trompe ou vous avez traité le cas général et c'est pour ça que je n'ai pas compris ?

Tu as tout à fait raison, KindPlayer avait lu le problème en diagonal et a donc proposé une solution pour une liste quelconque qui a été discutée et améliorée.

Ta proposition est très bien, en dehors du fait qu'elle ne prend pas en compte le cas de la liste vide et que tu ne sembles pas connaître cons :

Code Scheme :

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

1
2
3
4
5
6
(define (doublons l)
  (cond [{or (null? l) (null? (cdr l))} l]
	[{eq? (car l) (cadr l)} (doublons (cdr l))]
	[else (cons (car l) (doublons (cdr l)))]
        )
  )

--
Jedaï

[sperca]

Oui avec cons la solution est plus simple.

Merci ;-)