Définir une fonction qui modifie une liste en ne gardant que les sous-listes d'une longueur supérieure ou égal

Bonjour ,

J'ai un exercice que je n'arrive pas à résoudre avec clisp :
Définir une fonction qui modifie une liste en ne gardant que les sous-listes d'une longueur supérieure ou égale à un nombre donné
exemple :

Code:

---

1 2 3

(setq liste '((a b) c (d) (e f) (e g x) f)) (longueur 2 liste) => ((a b) (e f) (e g x)) liste => ((a b) (e f) (e g x))

---

Je doit donc déplacer le pointeur avec rplacd si la condition est validée mais comment établir cette condition qui doit être selon le résultat du comptage des atomes dans les sous-listes ?
Doit je créer 2 fonctions : 1 qui compte et l'autre qui déplacera le pointeur en fonction du retour de la fonction qui compte ?

Merci pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9

(defun longueur (n l) (cond ((null l) l) ((and (listp (car l)) (<= n (length (car l)))) (cons (car l) (longueur n (cdr l))) ) (T (longueur n (cdr l))) ) )

---

Bonjour,

Une autre solution possible :

Code:

---

1 2 3 4 5 6

(defun filtre-longueur (longueur-min liste) (remove-if-not (lambda (element) (and (listp element) (>= (length element) longueur-min))) liste))

---

Bonjour ,
Merci pour vos réponses , c’est plus clair maintenant .
Ce qu’il me manquait c’etait la fonction length que je connaissais pas et là ça change tout .