Discussion :

[Train55]

Bonjour,

je viens de débuter en CLISP.
Je voudrais créer une fonction récursive qui compte à partir d'une liste composée de nombres,
le nombre de nombres plus petit et égaux à partir d'un nombre donné.
Comme par exemple : (inf 12 '(3 5 15 12 24 2 35)) => 4

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

Code :

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

1
2
3
4
5
(defun inf (x liste)
 (cond
  ((not liste) nil)
  ((equal (car liste) (>= x)) (+ 1(inf x (cdr liste))))
  (t (inf x (cdr liste))) ))

Mais, il me retourne tous le temps nil.
Quelqu'un pourrait m'expliquer où je me suis planté.

Merci d'avance

[Train55]

Finalement je l'ai résolu

Code :

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

1
2
3
4
5
(defun inf (n l)
(cond
((not l) 0)
((>= n (car l)) (+ 1 (inf n (cdr l))))
(t (inf n(cdr l)))))

[byjav]

Ça semble correct, il ne faut que corriger l’inégalite: (car l) doit être plus petit ou égale que n, ce qui s’écrit comme (<= (car l) n) et équivaut à (> n (car l)).

Cet algorithme récursif est inefficace. Normalement, on organisait une boucle ou employait la fonction count-if.

[Train55]

Très bien, je vais corriger ça.
Merci beaucoup