Discussion :

[lynzpl]

Bonjour, j'aurai besoin d'aide sur un exercice, il m'est demandé de faire un programme qui imprime itérativement une chaîne de caractère dans un fichier, voilà ce que j'ai fait :

(defun print-alphabet (filename)
(setq fichier (open filename
:direction :output
:if-does-not-exist :create
:if-exists :supersede))
(setq code-char 1)
(loop
(cond ((> code-char char-code-limit) (return))
(t
(princ code-char fichier) ; Code
(princ #\Tab fichier)
(princ (code-char code-char) fichier) ; Caractre
(princ #\Tab fichier)
(princ (format nil "#\\~a" (code-char code-char)) fichier) ; Reprsentation CLisp
(terpri fichier) ; Aller la ligne
(setq code-char (1+ code-char)))))
(close fichier))

Cependant, on me dit qu'il y a des effets indésirables càd que ma fonction a un effet non souhaité sur le top-level. Or, je ne vois pas trop ce que je devrais changer. (ps : je ne dois pas utiliser la fonction "let")

[vincezd]

Bonjour,

Un peu tard pour votre exercice, mais j'aurais utilisé la macro

Code :

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

with-open-file

, qui va toujours fermer le descripteur de fichier, même si une erreur apparaît pendant l'exécution du code qu'elle protège.

https://lispcookbook.github.io/cl-cookbook/files.html

On peut également déclarer des variables de départ avec

Code :

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

loop

(avec

Code :

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

with

).

https://lispcookbook.github.io/cl-co...iteration.html

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
20
21
22
23
 
(defun print-alphabet (filename)
  (with-open-file (fichier filename 
                           :direction :output
                           :if-does-not-exist :create
                           :if-exists :supersede)
 
    (loop
      :with code-char = 1
      ;; :if (> code-char char-code-limit)
      :if (> code-char 100)
        :do (return)
      :else
        :do
           (princ code-char fichier) ; Code
           (princ #\Tab fichier)
           (princ (code-char code-char) fichier) ; Caractre
           (princ #\Tab fichier)
           (format fichier "#\\~a" (code-char code-char)) ; Reprsentation CLisp
           (terpri fichier) ; Aller la ligne
           (setq code-char (1+ code-char)))
 
    ))

On peut utiliser

Code :

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

(format fichier …)

.

Utiliser WITH-OPEN-FILE et LOOP…WITH nous a permis de ne pas utiliser LET.