fonction alphabet clisp

bonsoir , est ce que quelqu'un peut m'aider en clisp

Code:

---

1 2 3 4 5 6 7 8 9

alphabet iterative (defun alphabet (x y) (setq a "") (setq x x) (loop (cond ((< y x) (return a)) ) (setq a (string-concat a (string (code-char x)))) (setq x (1+ x))))

---

(alphabet 0 256) elle donne le résultat souhaité
(alphabet 0 char-code-limit) mais avec le code char elle retourne pas un résultat

ensuite j'aimerais imprimer une chaine de caractère sur un fichier avec la fonction (print-alphabet fichier)

Code:

---

1 2 3 4

<code> <une tabulation> <le caractère "en vrai"> <une tabulation><le caractère en représentation common lisp> 9 . . . #\tAB 65 . A . #\A

---

Dans l'attente de vous lire
merci

S’il s’agit de Common Lisp, il vaut mieux utiliser l’abréviation CL, car « clisp », c’est le nom d’une implémentation.

Je pourrais peut-être aider, mais je ne comprends pas qu’est-ce que c’est que ne marche pas. Utilises-tu emacs avec SLIME? Est-ce qu’il y a des erreurs? Lesquelles?

Ton code n’est pas fameux.

Le plus important est qu’en lisp, on déclare TOUJOURS TOUTES les variables. Pour déclarer et initialiser quelques variables locales, on utilise le plus souvent la forme LET:

Code:

---

1 2 3 4 5

(let ((var1 val1) (var2 val2) ... (varN valN)) <le corps>)

---

les déclarations étant visibles dans le corps qui consiste d’une ou plusieures expressions, la valeur de la dernière expression étant la valeur du LET. Donc, tu devais écrire

Code:

---

1 2 3

(defun alphabet (x y) (let ((a "")) ...))

---

Il ne faut pas déclarer x, parce que les arguments formels d’une fonction sont déjà des variables locaux dans le corps de la fonction. C’est-à-dire, tu peux affecter une valeur quelconque a x en dedans de la fonction et cette affectation n’aura aucun effet dehors.

L’affectation en lisp, c’est l’attribution d’une valeur à une variable déjà déclarée. On se sert le plus souvent de l’operateur universel SETF au lieu de SETQ.

On n’écrit jamais COND avec une seule branche, il faut utiliser WHEN.

STRING-CONCAT n’est pas une fonction standard. Je peux deviner ce qu’elle fait, mais ça semble trop inefficace, avec trop de miettes. Il vaut mieux créer d’abord une chaîne avec MAKE-ARRAY et y garder les caractères.

Citation:

---

ensuite j'aimerais imprimer une chaine de carractere sur un fichier avec la fonction (print-alphabet fichier)
<code> <une tabulation> <le caractère "en vrai"> <une tabulation><le caractère en représentation common
lisp>

---

Je suppose que la fonction FORMAT pouvait t’aider. Seulement, je ne comprends pas comment tu veux imprimer tous les caractères « en vrai », y compris les caractères de contrôle et les signes diacritiques, par exemple, sans parler des points de code sans caractères associés.

Donc, je propose que tu refasses ton code et expliques tes doutes.

bonsoir , en fait c'est une fonction qui construit une chaîne de caractère (alphabet 65 97) elle retourne abc
mais avec (alphabet 0 code-char-limit) elle retourne rien c'est pourquoi j'ai cru que j'ai une erreur alors qu'elle est juste
sinon la je me bloque sur une fonction qui imprime dans un fichier tous les caractères.
Voici le résultat que je souhaite avoir dans le fichier :

<code> <une tabulation> <le caractère "en vrai"> <une tabulation><le caractère en représentation common
lisp>
9                    .                               .                            .                          #\tAB
65                  .                               A                           .                          #\A 

Voici mon travail :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

(defun print-alphabet (x y) (setq x x) (loop (cond ((< y x) (return))) (princ (write-to-string x)) (princ " ") (princ(string (code-char x))) (princ " ")(prin1 (code-char x)) (setq x (1+ x)) (terpri)))   (print (print-alphabet 0 90 ) fichier) (close fichier)

---

en ouvrant le fichier je trouve que le nil , je pense que ceci est du a ma condition d’arrêt (return) qui return le nil et je sais pas comment la modifier
Dans l'attente de vous lire
merci

> elle retourne rien

Vraiment ? C’est-à-dire, le REPL écrit

Code:

---

; no value

---

? Il n’y même pas d’erreurs ? Je le doute fort. Moi, je ne peux même pas la fonction, parce que tu n’a pas donné la définition de STRING-CONCAT.

Comment peut-on t’aider si tu n’entres pas dans les détails ?

> voici le résultat que je souhaite avoir dans le fichier :

Bon, je vais poser une question plus spécifique. Qu’est-ce que tu attends pour le code 0007 (BELL) ? 0301 (COMBINING ACUTE ACCENT) ? 1F16 (caractère invalide) ?

D’ailleurs, la première fonction est à refaire, comme je l’ai écrit, et la deuxième aussi, car elle a les mêmes défauts.

Pièce jointe 298403


t'as vu elle retourne le resultat ;

sinon peut etre que j'ai mal expliqué:
voila donc l'exercice :
Pièce jointe 298408
(print-alphabet <nom du fichier à écrire>)

pour concat-string c'est une fonction prédéfini en cl
je dois pas aussi utiliser le let

Citation:

---

Envoyé par byjav

> elle retourne rien

Vraiment ? C’est-à-dire, le REPL écrit

Code:

---

; no value

---

? Il n’y même pas d’erreurs ? Je le doute fort. Moi, je ne peux même pas la fonction, parce que tu n’a pas donné la définition de STRING-CONCAT.

Comment peut-on t’aider si tu n’entres pas dans les détails ?

> voici le résultat que je souhaite avoir dans le fichier :

Bon, je vais poser une question plus spécifique. Qu’est-ce que tu attends pour le code 0007 (BELL) ? 0301 (COMBINING ACUTE ACCENT) ? 1F16 (caractère invalide) ?

D’ailleurs, la première fonction est à refaire, comme je l’ai écrit, et la deuxième aussi, car elle a les mêmes défauts.

---

le cond est la condition d'arret de mon loop

>t'as vu elle retourne le resultat ;

Je pense que ça fonctionne plus ou moins comme ça doit fonctionner, et que le probleme le plus sérieux est ce que tu écris le code dans le REPL. D’habitude, on écrit dans un fichier. Essaie ceci : https://shinmera.github.io/portacle/

> concat-string c'est une fonction prédéfini en cl

Non.

> le cond est la condition d'arret de mon loop

Je le vois, mais ce n’est pas le bon operateur, et j’ai écrit quel operateur il faut employer.

> je dois pas aussi utiliser le let

C’est simplement absurde.

Généralement, c’est dommage que tu ignores ce que j’écris. Demain je suis ici, ensuite je suis offline au moins jusqu’à septembre.

bonsoir,
je n'ai pas ignoré ce que tu m'écris
sinon est ce que tu peux m'aider a faire l'exercice parce que là je me bloque complètement
merci
a l'attente de vous lire

Bonjour,

Merci de bien vouloir utiliser la balise CODE pour afficher ton code, stp (bouton # dans la barre d'outils).

Citation:

---

Envoyé par shadow123456

voici mon travail :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

(defun print-alphabet (x y) (setq x x) (loop (cond ((< y x) (return))) (princ (write-to-string x)) (princ " ") (princ(string (code-char x))) (princ " ")(prin1 (code-char x)) (setq x (1+ x)) (terpri)))   (print (print-alphabet 0 90 ) fichier) (close fichier)

---

en ouvrant le fichier je trouve que le nil , je pense ue ceçi est du a ma condition d'arret (return) qui return le nil et je sais pas comment la modifier

---

Je crois que tu confonds "imprimer" et "retourner".

Citation:

---

Envoyé par shadow123456

Pièce jointe 298403

t'as vu elle retourne le resultat ;

---

Ben non, elle imprime le résultat, mais retourne NIL.

Dans ton instruction (print (print-alphabet 0 90 ) fichier), la fonction print-alphabet imprime les différentes valeurs sur la sortie courante, c'est-à-dire dans le terminal, puis elle retourne NIL.
Ensuite, la fonction print récupère ses 2 arguments: le NIL retourné par print-alphabet et le contenu de la variable fichier qui doit probablement contenir le nom d'un fichier, puis elle imprime son premier argument NIL dans le fichier passé en second argument, ce qui explique ce que tu trouves dans le fichier.

Concrètement, pour ton problème, il me paraît difficile de garder la même structure. Il me parait plus simple que la fonction print-alphabet imprime directement dans le fichier passé en paramètre:

Code:

---

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

(defun print-alphabet (x y fichier) (let ((x x)) (while (<= x y) (princ (write-to-string x) fichier) (princ " " fichier) (princ(string (code-char x)) fichier) (princ " " fichier) (prin1 (code-char x) fichier) (terpri fichier) (setq x (1+ x))) (close fichier)))   (print-alphabet 0 90 fichier)

---