Discussion :

[fab74]

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 :

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

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

[_gile]

Code :

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

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)))
  )
)

[Canvas]

Bonjour,

Une autre solution possible :

Code :

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

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))

[fab74]

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 .