Comment puis-je imprimer deux fois les éléments d'une liste de manière récursive?

Question

J'ai besoin d'écrire une fonction récursive qui imprime deux fois les éléments d'une liste. Par exemple, rdouble '(1 2 3) imprimerait (1 1 2 2 3 3) et rdouble' (1 (2 3) 4) imprimerait (1 1 (2 2 3 3) 4 4).

Jusqu'à présent, j'ai:

(defun rdouble(struct) 
(cond 
    ((atom struct) struct) 
    (t (cons (rdouble (car struct)) (cons (car struct) 
       (rdouble (cdr struct)) 
     ))))) 

Cela fonctionne très bien pour le premier exemple, mais imprime

(1 1 (2 2 3 3) (2 3) 4 4) 

pour le deuxième exemple. Comment puis-je continuer à imprimer deux fois chaque élément sans les réimprimer (2 3)? Qu'est-ce que je fais de mal et comment puis-je le réparer?

Answer 1

la raison pour laquelle il est à l'origine des problèmes que vous rencontrez est que donné ((1 2) 3) votre code récursif dans (1 2), qui devient correctement (1 1 2 2)et ajoute ensuite (1 2) (étant le car dans le premier appel) après la (1 1 2 2) donnant ((1 1 2 2) (1 2) ...)

ce qui serait le mieux est de faire rdoubletoujours retourner une liste, et append ces listes ensemble au lieu de les cons ing

Answer 2

L'expression a trois cas:

1. un atome -> retourner
2. un contre avec un atome comme la RCA -> doubler
3. un contre avec un contre que la voiture -> promenade vers le bas

gère votre code deux cas, lorsque votre deuxième cas se mélange 2 et 3.