Discussion :

[Tibtib]

Bonjour à tous,

j'ai un petit soucis que je n'arrive pas à résoudre sous lisp.

J'ai une liste et je cherche à en tirer le dernier élément, pour cela j'utilise last, quelque chose comme:

Code :

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

(let ((max (last liste))) )

Le soucis est que quand je veux utiliser "max" pour une opération (une division en l'occurrence), lisp me dit que "max" n'est pas un nombre. Je suppose donc qu'il considère cet élément comme une chaine de caractère.

Suis-je complètement dans le faux? Si oui, où est mon erreur? Si non, comment transformer une chaine de caractères en nombre?

Merci d'avance!

[Trap D]

Que fait exactement la fonction max ?
D'habitude elle renvoie le plus grand de deux éléments donc que signifie (max (last liste)) ?
Il faudrait un peu plus de détails.
Ton message d'erreur semble signifier que tu oublies la parenthèse ouvrante avant max.

[Tibtib]

En fait "max" ici n'est pas une fonction mais une variable à laquelle je donne la dernière valeur de ma liste "liste". En effet j'ai pensé au début que ça pouvait venir de ça, mais en remplaçant "max" par "toto" (il me semble que ça n'est pas une fonction de lisp), le problème est le même, lisp me dit que 12000 (la valeur de "last liste") n'est pas un nombre.

[Trap D]

Il faudrait que tu montres ton code.

[Tibtib]

ok voici mon code (en simplifié):

Code :

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

1
2
3
4
5
6
7
8
9
10
(defparameter liste '(0 750 2000 21000))
 
(defun fonction (liste)
    (let ((toto (last liste)))
          (let ((nombre (round (/ toto 1000) ) )) 
          )
     )
)
 
(fonction liste)

Quand j'évalue le programme, j'ai un message d'erreur qui dit:

"In / of ((21000) 1000) arguments should be of type NUMBER."

[Trap D]

As-tu essayer de taper (last liste) pour voir le résultat ?
Tu trouveras tout de suite ton erreur !

[Tibtib]

Ah oui ça me sort (21000)...mais comment je peux juste récupérer 21000 dans ce cas?

[Tibtib]

En utilisant car...

Code :

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

1
2
 
(let ((max (car (last liste) ) )) )

ok!

Merci bien, ça fonctionne maintenant!

[Trap D]

Pensez au clic sur

[jack-ft]

En utilisant car...

Code :

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

1
2
 
(let ((max (car (last liste) ) )) )

ok!

Merci bien, ça fonctionne maintenant!

Un grand classique!

last retourne le dernier cons d'une liste et non le dernier élément!

J'imagine que la raison, c'est d'avoir une seule fonction qui permette à la fois:
* de vérifier si la liste finit ou non par une paire pointée (avec un (null (cdr (last l)))),
* d'allonger la liste (avec un (rplacd (last l) ll))
* et d'obtenir le dernier élément de la liste (avec un (car (last l))).

)jack(