String et char : signification et utilisation

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 :calim2:.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é :furieux:

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

Citation:

---

Envoyé par 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+

---

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 .

Citation:

---

Envoyé par Kurodiam

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:

---

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:

---

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

---

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 .

Citation:

---

Envoyé par 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 .

---

Je ne vois pas bien comment faire autrement!

L'hyperspec (la bible, quoi) dit:

Citation:

---

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)

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.

Sérieux , c'était beaucoup plus simple que çà , en fait , il y a une astuce à inclure dans ma fonction : en transformant une valeur en un caractère puis ensuite en chaine de caractères ==> (char (string x) 0) et bien entendu , j'ai crée un prédicat avec equal .

Merci pour vos infos aussi :)

Y'a une chose qui retient mon attention , c'est l'utilisation du eq qui parait très simple ...8O

Citation:

---

Envoyé par Kurodiam

Sérieux , c'était beaucoup plus simple que çà , en fait , il y'a une astuce à inclure dans ma fonction : en transformant une valeur en un caractère puis ensuite en chaine de caractères ==> (char (string x) 0) et bien entendu , j'ai crée un prédicat avec equal .

---

A vrai dire, je ne l'ai pas tout à fait compris, mais ça peu importe, puisque le problème est resolu. It semble que tu as transformé un symbole dans une chaîne de caractères et ensuite tu en as pris le premier. C'est parfait bien que ce soit bizarre d'utiliser des symboles au lieux des chaînes de caractères. Pour comparer les charactères il faudrait mieux employer EQL ou CHAR=, car elles sont plus spécifiques.

Citation:

---

Envoyé par byjav

A vrai dire, je ne l'ai pas tout à fait compris, mais ça peu importe, puisque le problème est resolu. It semble que tu as transformé un symbole dans une chaîne de caractères et ensuite tu en as pris le premier. C'est parfait bien que ce soit bizarre d'utiliser des symboles au lieux des chaînes de caractères. Pour comparer les charactères il faudrait mieux employer EQL ou CHAR=, car elles sont plus spécifiques.

---

Oui , je peux comprendre çà , ce n'est pas évident à capter, en fait , l'idée et la difficulté vient ""de comparer un caractère et un symbole"" .

Mais en surfant sur le net, j'ai vu les fonctions spécifiques dont tu parles (et y'a la même chose avec string) , mais en cours , on n'en parle pas encore , et ben çà veut dire que c'est surement un palier plus haut !

Comparer un caractère a un symbole, c'est très simple: ils ne sont ni EQ, ni EQL, ni EQUAL, ni EQUALP. C'est la même chose que comparer un kilo à un mètre.

Citation:

---

Envoyé par Kurodiam

mais en cours , on n'en parle pas encore , et ben çà veut dire que c'est surement un palier plus haut !

---

"un pallier plus haut" me fait penser à un niveau de difficulté supplémentaire.
Il y a tellement de fonctions en lisp (voir l'index de l'hyperspec)!
Il y a une exploration "en largeur" (voir de nouvelles fonctions simples) et une exploration "en profondeur" (voir de nouveaux concepts et des fonctions complètement différentes)...
Bref, ce n'est pas parce que tu n'as pas encore vu une fonction qu'elle est nécessairement "un pallier plus haut"!
Elle peut juste être un pas à côté du chemin sur lequel t'invite ton prof...

Rq: "aref" est la fonction d'accès aux éléments d'un vecteur ("array"). Comme une "string" est un cas particulier de vecteur (une "sous-classe" en quelque sorte), on peut lui appliquer "aref".
CL fournit aussi des accesseurs spécifiques aux chaines de caractères comme "char", qui provoque une erreur si on tente de l'appliquer à un "array" qui n'est pas une "string".
mais... j'avais "oublié" l'existence de cette fonction et ne l'ai pas retrouvée en feuilletant rapidement l'hyperspec.
Merci à byjav de me l'avoir rappelée. Du coup, la meilleure forme étant, à mon sens, celle qu'il a proposée:

Code:

---

(char= (char s1 0) (char s2 0))

---

Cool :mrgreen:


Pour revenir à mon exo , il faut extraire le caractère qu'on veut comparer.

Partons de (setq liste '(navrant heureux)).

Si je fais (string (car liste), j'aurai l'atome navrant , mais ce que je veux c'est la chaîne heureux.
Pour ça tu fais : (string (cadr liste)).

Maintenant il faut que je puisse comparer seulement le N de navrant, et donc il faut utiliser char :

(char (string (car liste)) 0) renvoie alors bien #\N

Maintenant si je veux comparer (char (string (car liste)) 0) avec N je dois transformer N pour qu'il soit lui aussi sous forme #\N (sinon je compare un caractère et un atome et c'est impossible bien entendu ).

Alors je reprends la formule :

(char (string -mon caractère-) 0) ==> j'obtiens la forme #\N.


Voici deux tests pour te montrer @byjav :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

(setq liste '(chichi chimere sage)) (chichi chimere sage)   (setq caractère 'c) c   (string (char (string (car liste)) 0)) - on a bien un caractère, le premier de 'chichi' "c"     (string caractère) - c'est un caractère, c convertit "c"

---

Bon, il est assez bête, ton exo, comme d'habitude. :D (Naturellement, ce n'est pas ta faute).

Est-ce que tu connais des liens sur des exercices corrigés ? :P
Ce serait un rêve si çà existe :aie:

Moi, je n'en connais rien. Je ne suis pas tellement intéressé aux exercices...

Je ne connais pas de lien vers des exercices lisp avec corrigés.
J'imagine que ça doit se trouver sur internet!
Sur ce forum, il y a quelques (vieilles) références:
http://www.developpez.net/forums/d11...n/#post6148115
http://www.developpez.net/forums/d10...p/#post5758493

Sinon, tu peux aussi regarder les divers posts de ce forum. Beaucoup d'entre eux sont des demandes d'aide pour des problèmes simples que tu peux "t'amuser" à résoudre toi-même! :P

Cliquer sur Forum lisp
Cliquer sur Forum scheme

Merci pour les liens .
En fait , en parallèle , j'ai cherché des tutos , et figures que certains mettent des codes qui ne tournent même pas donc c'est pas cool :pleure:

Citation:

---

Envoyé par Kurodiam

certains mettent des codes qui ne tournent même pas donc c'est pas cool :pleure:

---

Cela peut être un excellent exercice: comprendre pourquoi le code ne marche pas et le corriger!
Et, si tu n'y arrives pas, tu peux toujours poster une question sur ce forum! :)

Ceci est beaucoup plus intéressant: http://www.gigamonkeys.com/book/ Il n'y a pas d'exercices, mais il y a du bon Common Lisp.

Citation:

---

Envoyé par byjav

Ceci est beaucoup plus intéressant: http://www.gigamonkeys.com/book/ Il n'y a pas d'exercices, mais il y a du bon Common Lisp.

---

Ok! Tu sais , je l'ai téléchargé depuis longtemps :mrgreen: