[Clisp] Fonction qui liste les nombres plus petits ou égaux à une valeur

Bonjour,

au fait je suis débutant dans clisp, j'ai suivi ce questionnaire d'un d'utilisateur qui est de définir une fonction qui construit, à partir d'une liste de nombres, la liste des nombres plus petits ou égaux qu'un,
nombre donné ; exemple

Code:

---

(inférieur 12 '(3 5 15 12 24 2 35)) => (3 5 12 2)

---

Mais je m'en sorte vraiment pas cad j'ai pas le bon résultat, voici quelques lignes de ma codification
"Aidez moi svp"

Code:

---

1 2 3 4 5

(defun inf (n l) (cond ((not l) nil) ((>= (car l) n)(cons n(inf n(cdr l)))) ((car l)(inf n(cdr l))) ))

---

Bonsoir,

Voici une solution possible :

Code:

---

1 2 3 4 5

(defun inferieur (n l) (cond ((not l) nil) ((<= (car l) n) (cons (car l) (inferieur n (cdr l)))) (t (inferieur n (cdr l)))))

---

En indentant le code, on voit un peu plus clair.

Citation:

---

Envoyé par Canvas

Bonsoir,

Voici une solution possible :

Code:

---

1 2 3 4 5

(defun inferieur (n l) (cond ((not l) nil) ((<= (car l) n) (cons (car l) (inferieur n (cdr l)))) (t (inferieur n (cdr l)))))

---

En indentant le code, on voit un peu plus clair.

---

Surtout en mettant le t final à la même hauteur que le cons de la ligne précédente... :mouarf:

merci pour vos interventions, je vais essai et je reviendrai vers vous

Code:

---

(remove-if #'(lambda (x) (> x 12)) '(3 5 15 12 24 2 35))

---