Discussion :

[Train55]

Bonjour,

Je voudrais créer une fonction qui construit, à partir d'une liste de nombres, la liste des nombres plus petits ou égaux qu'un nombre donné, comme par exemple :

Code :

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

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

Voila ce que j'ai fait pour l'instant :

Code :

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

1
2
3
4
5
6
 
(defun inf (n l)
(cond
((not l) nil)
((>= (car l) n) (inf n(cdr l))))
(cons(car l)(inf n(cdr l))) ))

Mais il me retourne :

Code :

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

1
2
 
- Program stack overflow. RESET

J'ai essayer de modifier un peu, en rajoutant des "cons" :

Code :

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

1
2
3
4
5
6
 
(defun inf (n l)
(cond
((not l) nil)
((>= (car l) n)(cons n(inf n(cdr l))))
((car l)(inf n(cdr l))) ))

Mais c'est toujours pas ça :

Code :

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

1
2
3
 
(inf 4 '(1 2 3 4 5 6))
(4 4 4)

ce que je voudrais c'est

Code :

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

1
2
3
 
(inf 4 '(1 2 3 4 5 6))
(4 5 6)

Qu'est - ce que l'ai loupé ?

[Train55]

Finalement, j'ai réussi à le résoudre. J'ai mal placé les parenthèses

[Pyramidev]

Bonjour.

Je débute moi aussi en Common Lisp.

Voici un code plus simple qui s'appuie sur la fonction remove-if :

Code :

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

1
2
3
4
5
6
7
(defun remove-if-greater-than (the-number the-list) (
  remove-if #'(lambda(x)(> x the-number)) the-list
))
 
(write-line(write-to-string(
  remove-if-greater-than 12 '(3 5 15 12 24 2 35)
)))

Cela affiche bien dans la sortie standard :

Code :

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

(3 5 12 2)

[Train55]

Merci beaucoup !

[byjav]

La fonction est parfait sauf le formatage du code. On le fait plutôt de cette façon :

Code :

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

1
2
(defun remove-if-greater-than (the-number the-list)
  (remove-if #'(lambda (x) (> x the-number)) the-list))

ou bien

Code :

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

1
2
3
4
(defun remove-if-greater-than (the-number the-list)
  (remove-if #'(lambda (x)
                 (> x the-number))
             the-list))

Les règles de formatage se trouvent ici :
http://dept-info.labri.fr/~strandh/T...dentation.html
Un éditeur spécialisé tel comme Emacs est indispensable.

On peut vérifier le code comme ça :

Code :

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

(print (remove-if-greater-than 12 '(3 5 15 12 24 2 35)))

Mais la nature dynamique de Lisp permet l’interaction avec un Lisp en marche (et en effet encourage la programmation interactive). Un environnement de développement tel comme Slime contient un REPL: la boucle « lecture ― évaluation ― affichage ». Là, on écrit à l’invite:

Code :

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

(remove-if-greater-than 12 '(3 5 15 12 24 2 35))

et le résultat est affiché.

Je recommande Portacle https://portacle.github.io/ : un environnement comportant SBCL, Emacs et d’autre outils, très facile à installer.