Discussion :

[MilkyMars]

Bonjour, je fais appel à vous car je n'ai pas grand monde pour m'aider.

Voilà, j'ai une fonction qui donne les caractères compris entre 2 codes caractères qu'on lui donne.

Code :

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

1
2
3
4
(defun alphabet (deb fin)
  (cond
    ((eq deb fin) "")
    ((string-concat (string (code-char deb)) (alphabet (incf deb) fin))) ) ) )

Petit test :

Code :

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

1
2
> (alphabet 65 127)
"ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~"

Cette fonction récursive je dois la transformer en fonction itérative mais je ne sais pas trop comment m'y prendre. Voilà ce que j'ai pour l'instant, je sais que ce n'est PAS correct DU TOUT mais je poste quand même :

Code :

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

1
2
3
4
(defun alphabet (deb fin &aux listchar)
  (cond
    ((eq deb fin) "" (return listchar))
    ((cons (car listchar) (append (string (code-char deb)) (cdr listchar))))

Si quelqu'un peut m'aiguiller, me mettre sur la piste car je bloque.

Merci d'avance !

[Leon00]

Je suis dans la même galère que toi !!!!
je peux voir sur ta fonction que tu parcours une liste avec ( cons , car ,cdr .......... ) et ce qui est demandé c pas une liste mais une chaine de caractère !!
j'ai fais une moi et elle me renvois ""

Code :

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

1
2
3
4
5
6
(defun alphabet (debut fin &aux nulle)
(setq nulle "")
(loop
(cond
((equal debut fin)(return nulle)
((concatenate 'string (string(code-char debut))) (incf debut)))))

voila a celle a qui je suis arrivé

[jack-ft]

Bonjour, je fais appel à vous car je n'ai pas grand monde pour m'aider.

Voilà, j'ai une fonction qui donne les caractères compris entre 2 codes caractères qu'on lui donne.

Code :

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

1
2
3
4
(defun alphabet (deb fin)
  (cond
    ((eq deb fin) "")
    ((string-concat (string (code-char deb)) (alphabet (incf deb) fin))) ) ) )

Petit test :

Code :

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

1
2
> (alphabet 65 127)
"ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~"

Cette fonction récursive je dois la transformer en fonction itérative mais je ne sais pas trop comment m'y prendre. Voilà ce que j'ai pour l'instant, je sais que ce n'est PAS correct DU TOUT mais je poste quand même :

Code :

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

1
2
3
4
(defun alphabet (deb fin &aux listchar)
  (cond
    ((eq deb fin) "" (return listchar))
    ((cons (car listchar) (append (string (code-char deb)) (cdr listchar))))

Si quelqu'un peut m'aiguiller, me mettre sur la piste car je bloque.

Merci d'avance !

Pour itérer, il faut un itérateur (comme loop ou while) et une affectation (setq), par exemple:

Code :

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

1
2
3
4
5
6
(defun alphabet (deb fin)
  (let ((listchar ""))
    (while (<= deb fin)
      (setq listchar (string-concat listchar (string (code-char deb))))
      (incf deb))
    listchar))