Programmation lisp

Version imprimable

07/10/2013, 08h32
zaricot

Programmation lisp

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.
07/10/2013, 20h34
Trap D

Quel est le résultat attendu pour (somme '(1 2 3 a b)) ?
07/10/2013, 21h04
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
07/10/2013, 22h08
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:

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.
08/10/2013, 08h31
zaricot
Voila ma fonction
Code:

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:

1 2 3 4 5 6 (defvar a 1) (defvar b 2) (defvar c 3) ... (defvar z 26)
Puis je test la fonction

Code:

(somme '(1 2 3 a b))

J'ai une erreur

Citation:

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?
08/10/2013, 13h40
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:

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:

'(1 2 3 #\a #\b)
09/10/2013, 09h18
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:

1 2 3 (defvar a 1) (defvar b 2)
Et que je n'utilise pas la fonction somme mais je fais simplement :
Code:

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 :(
10/10/2013, 09h34
Bruno-Vdh
Bonjour,
Citation:
Envoyé par zaricot

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

Code:

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

Puis je test la fonction

Code:

(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:

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:

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

A+

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

Code:

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))

10/10/2013, 18h57
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 :(
10/10/2013, 22h53
Bruno-Vdh
Bonsoir,

Si on souhaite limiter le nombre de variable globale une alternative à l’emploie de la fonction gethash et d’une table de hachage.

Ce serait par l’emploie d’une simple liste d’association constitué de paires pointé (cons) dont le car est la clé et le cdr la valeur à associer.
Code:

1 2 3 4 5 6 7 8 (defparameter *symb-num* '((a . 1) (b . 2) (c . 3) (z . 26) ) )
Exemple pour extraire au moyen de la fonction assoc la valeur associé à la clé b dans la liste d’association *symb-num* :
Code:

1 2 (cdr (assoc 'b *symb-num*)) -> 2
11/10/2013, 14h14
jabbounet

Citation:

Envoyé par byjav

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)
11/10/2013, 14h17
jabbounet

Citation:

Envoyé par 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 :(

Citation:

Envoyé par Zarricot

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

visiblement il ne veut pas traiter des caractères....