Fonction dans une fonction

[canotier]

Bonsoir la liste,

Une bonne âme pourrait-elle m'expliquer la tournure de programmation ci dessous (routine de Gile) consistant à utiliser str2lst dans la définition de str2lst, je suis un tantinet largué.

Cordialement.

 

(defun str2lst (str sep / pos)
 (if (setq pos (vl-string-search sep str))
   (cons (substr str 1 pos)
  (str2lst (substr str (+ (strlen sep) pos 1)) sep)
   )
   (list str)
 )
)

 

[(gile)]

Salut,

 

Il s'agit d'une fonction récursive (utilisé en mathématique et en programmation).

Tu peux voir ce sujet ou cet exemple ou celui là.

 

Un petit pas à pas pour voir le fonctionnement de str2lst avec la chaine "1,2,3" et "," comme séparateur.

 

1er appel :

(str2lst "1,2,3" ",")

la condition d'arrêt (setq pos (vl-string-search "," "1,2,3")) retourne 1

c'est donc l'expression (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep)) qui est évaluée :

(cons ("1") (str2lst "2,3" ","))

 

l'expression contient un second appel (str2lst "2,3" ",") et la condition d'arrêt retourne encore 1, le résultat est :

(cons ("1") (cons "2" (str2lst "3" ",")))

 

l'expression contient un second appel (str2lst "3" ",") cette fois la condition d'arrêt retourne nil, c'est donc (list str) qui est évaluée :

(cons "1" (cons "2" (list "3")))

 

Il n'y a plus d'appel de la fonction str2lst dans le résultat, la phase d'empilement est terminée (toutes les expressions sont "autoévaluante"), c'est maintenant la phase de dépilement :

(cons "1" (cons "2" '("3")))

(cons "1" '("2" "3"))

("1" "2" "3")

[canotier]

 

Merci mille fois Gile.

L'horizon est clair à présent.