Convertion caractère/nombre en lisp

Version imprimable

05/01/2011, 18h49
Tibtib

Convertion caractère/nombre en lisp

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:

(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!
06/01/2011, 10h34
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.
06/01/2011, 11h47
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.
06/01/2011, 11h53
Trap D

Il faudrait que tu montres ton code.

ok voici mon code (en simplifié):
Code:

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."

06/01/2011, 14h14
Trap D

As-tu essayer de taper (last liste) pour voir le résultat ?
Tu trouveras tout de suite ton erreur !
06/01/2011, 15h33
Tibtib

Ah oui ça me sort (21000)...mais comment je peux juste récupérer 21000 dans ce cas?
06/01/2011, 18h14
Tibtib
En utilisant car...
Code:

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

Merci bien, ça fonctionne maintenant!
07/01/2011, 19h17
Trap D

Pensez au clic sur :resolu:
25/01/2011, 10h24
jack-ft
Citation:
Envoyé par Tibtib

En utilisant car...

Code:

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(