Discussion :

[Bolboaa]

Bonjour, je voudrais faire une fonction comme la fonction prédéfinie position.
J'ai fais une fonction itérative :

Code :

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

1
2
3
4
(defun position (x lst)
  (when (consp lst)
    (loop for c in lst for i from 0
      when (equal c x) return i)))

Maintenant j'essaye de refaire cette fonction de façon a ce qu'elle soit récursive, mais je ne vois pas trop comment.

[Bolboaa]

J'ai tenté avec ceci :

Code :

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

1
2
3
4
5
6
(defun position (x lst)
  (cond
    ((atom lst) nil)
    ((equal (car lst) x) 0)
    ((null (car lst)) (posi x))
    (t (1+ (posi x (cdr lst)))) ) )

Elle fonctionne tant que la fonction ne tombe pas sur un nil

Code :

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

1
2
3
4
(posit 'd '(a b c d e f)
3
(posi 'y '(a b c d e f)
nil is not a number

Sauf que je ne peux pas changer le nil de (atom list) sinon le nil est compter.

[stendhal666]

D'abord, dans ta fonction position il est fait appel à la fonction "posi": est-ce volontaire, une erreur de frappe?

Ensuite, il faut que tu partes de la spécification de la fonction: qu'est ce que ta fonction est censée faire si on lui fournit des arguments corrects, et que doit elle faire si on lui fournit des arguments incorrects?

Pour la première partie, quand les arguments sont corrects, la fonction doit retourner nil si l'élément n'est pas présent, et l'index de l'élément s'il est présent. L'élément est absent si on est arrivé à la fin de la liste, c'est-à-dire que la liste est vide = Nil

Donc:

Code :

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

1
2
3
4
5
(defun pos (x lst)
  (cond
    ((null lst) nil) ;; on est arrivé à la fin de la liste
    ((equal (car lst) x) 0) ;; on est arrivé à l'élément recherché
    (T (1+ (pos x (cdr lst)))))) ;; sinon on va un élément plus loin

Pour la gestion d'erreur, à toi de jouer.

[Bolboaa]

Bonjour et merci pour la réponse

En effet pour posi et position, c'est des erreurs de frappes j’étais sur mon téléphone

Ma fonction :

Code :

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

1
2
3
4
5
6
(defun position (x lst)
  (cond
    ((atom lst) nil)
    ((equal (car lst) x) 0)
    ((null (car lst)) (posi x))
    (t (1+ (position x (cdr lst)))) ) )

et ta fonction :

Code :

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

1
2
3
4
5
(defun pos (x lst)
  (cond
    ((null lst) nil)
    ((equal (car lst) x) 0)
    (T (1+ (pos x (cdr lst))))))

fonctionnent toutes les deux et donnent le même résultat sauf pour les erreurs comme :

Code :

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

1
2
(pos 'x '(c d e f a b))
- 1+: NIL is not a number

Moi je cherche a savoir comment faire pour éviter cette erreur :/

[stendhal666]

Exact!

Il faut modifier la fonction de la façon suivante, pour éviter (1+ Nil):

Code :

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

1
2
3
4
5
6
(defun pos (x lst)
  (cond
    ((null lst) nil)
    ((equal (car lst) x) 0)
    (T (let ((nxt (pos x (cdr lst))))
          (when nxt (1+ nxt)))))

[Bolboaa]

Merci stendhal666 !