Discussion :

[Kurodiam]

Bonjour,


Comment fait t-on pour comparer un caractère avec une liste formée bien entendu d'atomes( qui sont des mots en fait ) qui sont deux types d'objets différents ?
La seule manière serait de comparer deux caractères pour après former une nouvelle liste d'atomes .
Je découvre pour la première ces deux types d'objets qui sont char et string .
J'ai fait plusieurs tests comme par ex : (char (string (cadr liste)) 0) ....
Un objet string est un symbole et comme fonction ne prend qu'un seul argument et char est un caractère , et comme fonction prend deux arguments .

PS : je le dis juste comme çà pour prévenir d’éventuelles personnes malveillantes , ce n'est pas en ridiculisant une personne qu'on lui apprend le savoir .Y'a certains qui font çà dans d'autres forums et c'est pas trés cool pour une personne en pleine phase d'apprentissage ...
Je suis débutante en lisp , et je viens de commencer la fameuse récursivité

[Bruno-Vdh]

Bonjour,
Peux-tu reformuler plus clairement ta question, voire même poser quelques lignes de code, j’avoue avoir du mal à te suivre…
A+

[Kurodiam]

Bonjour,
Peux-tu reformuler plus clairement ta question, voire même poser quelques lignes de code, j’avoue avoir du mal à te suivre…
A+

Mon objectif est de comparer déjà si 2 chaines de caractères commencent par un même caractère et une fois çà , je dois créer une nouvelle liste incluant des mots en fonction de ce prédicat .

[jack-ft]

Mon objectif est de comparer déjà si 2 chaines de caractères commencent par un même caractère et une fois çà , je dois créer une nouvelle liste incluant des mots en fonction de ce prédicat .

Code :

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

1
2
3
4
5
6
7
8
ELISP> (setq str1 "chou")
"chou"
ELISP> (setq str2 "coucou")
"coucou"
ELISP> (eq (aref str1 0) (aref str2 0))
t
ELISP> (eq (aref str1 1) (aref str2 1))
nil

Attention! S'il s'agit de symboles et non de chaines, il faut prendre leur nom pour obtenir une string (manipulable avec aref)!

Code :

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

1
2
3
4
5
6
ELISP> (setq s1 'chou)
chou
ELISP> (setq s2 'coucou)
coucou
ELISP> (eq (aref (symbol-name s1) 0) (aref (symbol-name s2) 0))
t

[Kurodiam]

En cours , je n'ai pas encore vu la fonction aref mais j'ai saisi que (symbol-name truc) => "truc" .Pourtant , je sais qu'il faut que j'arrive à comparer un caractère et un symbole .

[jack-ft]

En cours , je n'ai pas encore vu la fonction aref mais j'ai saisi que (symbol-name truc) => "truc" .Pourtant , je sais qu'il faut que j'arrive à comparer un caractère et un symbole .

Je ne vois pas bien comment faire autrement!

L'hyperspec (la bible, quoi) dit:

A string is a specialized vector whose elements are of type character or a subtype of type character. When used as a type specifier for object creation, string means (vector character).

La manière normale (et probablement unique) d'accéder au N+1ème caractère d'une chaîne STR est, comme indiqué précédemment (aref N STR) où N == 0 correspond au 1er élément.

Si tu veux comparer 2 chaines entre elles, tu peux utiliser un prédicat comme string< ou l'un de ceux décrits dans la page http://www.lispworks.com/documentati...y/f_stgeq_.htm

Si tu veux comparer un caractère d'une string avec un caractère, l'utilisation de aref est le meilleur moyen!
(encore qu'il soit possible d'utiliser string< avec make-string)

[byjav]

En Common Lisp il y a quelques opérateurs qui testent l'identité en plusieurs sens, à savoir quatre opérateurs génériques, EQ, EQL, EQUAL, EQUALP, et leur cas particulier comme =, CHAR=, STRING=, STRING-EQUAL, etc. EQ compare les pointeurs, alors il est utilisé pour la plupart pour comparer les symboles, car il n'est pas garanti que deux caractères #\a ont le même pointeur. L'operatéur EQL est aussi applicable aux caractères et aux nombres d'une façon naturelle, donc (eql #\a #\a) donne T. EQUAL manipule naturellement des donnés composés telles que listes ou tableaux.

String est un cas particulier d'array, donc on peut en extraire des caractères à l'aide de la fonction générale AREF ou bien d'une fonction speciale CHAR.

Alors, on compare les premiers caractères de deux chaînes comme ça: (eql (char s1 0) (char s2 0)) ou (char= (char s1 0) (char s2 0)). Si s1 ou s2 est vide, ça produit un erreur.