Discussion :

[zaricot]

Bonjour ,

Je débute en lisp et j'esseye depuis une bonne semaine maintenant d'écrire une simple fonction somme qui réalise la sommes des éléments. Sauf que si les éléments sont des caractères il le modifie en chiffre pour exécuter la somme tel que :
ex : (somme '(1 2 3 a b)) donne 9 soit 1+2+3+1+2 .
(somme '(1 2 3 a z)) donne 33 soit 1+2+3+1+26.

J'utilise lispWork 4.2.0 , Merci d'avance de votre aide.

[Trap D]

Quel est le résultat attendu pour (somme '(1 2 3 a b)) ?

[zaricot]

• (somme '(1 2 3 a b)) = 9
  (somme '(1 2 3 a z)) = 33

Lorsque je rencontre une lettre je veux le remplacer par :a = 1 , b = 2 , c = 3 .... z=26 , pour pouvoir faire la somme

[jabbounet]

personnellement j'utilise emacs et son lisp

Avec ce code j'arrive au résultat que tu attendu (ce n'est pas la panacée)

Code :

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

1
2
3
4
5
6
7
8
 
(defconst a 1)
(defconst b 2)
(defconst c 3)
...
(defconst z 26)
 
(message "%d" (+ 1 2 3 a b))

cela donne: 9

tu peux aussi jeter un œil sur (apply ...) qui permet d'appliquer une fonction sur un ensemble.

[zaricot]

Voila ma fonction

Code :

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

1
2
3
4
 
(defun Somme (liste)
(apply '+ liste)
)

(somme '(1 2)) = 3

J'ai réussi a additionner les chiffres mais j'ai encore des soucis avec les lettres . Même si je définis

Code :

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

1
2
3
4
5
6
 
(defvar a 1)
(defvar b 2)
(defvar c 3)
...
(defvar z 26)

Puis je test la fonction

Code :

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

(somme '(1 2 3 a b))

J'ai une erreur

Error: In + of (6 AB) arguments should be of type NUMBER.

J'ai l'impression qu'il n'arrive pas a prendre la valeur des variables que j'ai définie il le traduit en caractères , quelqu'un aurait la réponse?

[jabbounet]

il est a noté que ici on a définit des variables (const dans mon cas) a,b,c …

un caractère se représente plutôt de la façon suivante #\x pour 'x'

Exemple (remplacement de 'u' par 'o' dans une chaine)

Code :

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

1
2
3
 
(substitute #\u #\o "Groucho Marx")
-> "Gruuchu Marx"

Si tu dois vraiment utiliser des caractères ta liste en entrée devrait être

Code :

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

'(1 2 3 #\a #\b)

[zaricot]

Je vous donne une précision sur ce que j'entends moi par caractères .

"Si les éléments sont des atomes caractères, il faut transformer les caractères en chiffre puis faire la somme "

Il faut ma fonction résout "a = 1" et non pas "#\a = 1"

Lorsque je définie :

Code :

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

1
2
3
 
(defvar a 1)
(defvar b 2)

Et que je n'utilise pas la fonction somme mais je fais simplement :

Code :

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

1
2
 
(+ 1 2 3 a b)

J'ai le bon résultat . Mais dès lors j'utilise la fonction que j'ai publié dans les messages précédents , j'ai une erreur

[Bruno-Vdh]

Bonjour,

J'ai réussi a additionner les chiffres mais j'ai encore des soucis avec les lettres . Même si je définis

Code :

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

1
2
3
4
5
6
 
(defvar a 1)
(defvar b 2)
(defvar c 3)
...
(defvar z 26)

Puis je test la fonction

Code :

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

(somme '(1 2 3 a b))

J'ai une erreur



J'ai l'impression qu'il n'arrive pas a prendre la valeur des variables que j'ai définie il le traduit en caractères , quelqu'un aurait la réponse?

Tu as répondu en partie au problème, tu évalue le symbole plutôt que son affectation.

Pour mieux comprendre évalue, les expressions suivantes :

Code :

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

1
2
'(1 2 3 a b) retoune (1 2 3 A B)
(list 1 2 3 a b) retourne (list 1 2 3 1 2)

Le symbole ’(quote) retoune la liste tel que définie, dans ce cas tu n’évalue pas tes variables , pour définir ta liste contenant des variables utiles la fonction list:

Code :

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

(somme (list 1 2 3 a b)) retourne 9

A+

[byjav]

Créer plus de vingt variables globales inutiles c'est pas rationnel. Une seule hash-table est suffisante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
(defparameter *symb-num* (let ((h (make-hash-table)))
                           (dolist (x '((a . 1)
                                        (b . 2)
                                        (c . 3)
                                        (z . 26))) ; y en ajouter davantage
                             (setf (gethash (car x) h) (cdr x)))
                           h))
 
(defun somme (seq)
  (reduce #'(lambda (acc x)
              (if (symbolp x)
                  (let ((num (gethash x *symb-num*)))
                    (if num
                        (+ acc num)
                        (error "Unexpected symbol in summation.")))
                  (+ acc x)))
          seq
          :initial-value 0))

[Trap D]

Il n'y a aucune possibilité de créer automatiquement la valeur associée en allant chercher des codes associés aux atomes (le code ascii par exemple) ou pouvoir faire une opération du style atome - a + 1 par exemple ?
Je ne connais pas assez la syntaxe ni les fonctions de Lisp pour l'écrire

[jabbounet]

Créer plus de vingt variables globales inutiles c'est pas rationnel. Une seule hash-table est suffisante :

Cela dépend du contexte, ici on est dans un cas de cours donc il a peu d'importance.

l'utilisation d'une table de hash sera plus souple et évolutif, mais la contrepartie est d'induire du traitement/calcul supplémentaire lors de l’exécution par rapport a l'utilisation d'un nombre de constante finie.

A noter que un fichier définissant des constantes peut facilement se générer par un script et être inclu dans le programme.

Me concernant pour ce cas (un apprentissage du langage) les deux approches sont valables. (pour un problème analogue dans un langage type C/C++ j'aurais probablement défini un type énuméré qui n'est pas disponible en lisp)