petite solution récursive
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| (define (oterRepet l)
(cond
((null? l) '()) ;si l est nulle on renvoi une liste vide
((null? (cdr l)) (list(car l))) ; si la liste n'a qu'un élément, on la renvoie
(else
(if (eq? (car l)(cadr l)) ;si le car = le car du cdr (1er élément = le 2ème)
(oterRepet (cdr l)) ; on renvoi la liste privée du 1er élément à la fonction
(cons (car l) (oterRepet (cdr l))); sinon on crée une autre liste avec
) ; le 1er élément et on renvoi la liste
) ; à la fonction privée du 1er élément
)
) |
En espérant que cela te serve et surtout il faut programmer pour comprendre !!
