Схема дублирующих записей в списке

Question

Я пытаюсь дублировать все записи в списке с помощью схемы:

Это код, у меня есть:

(define double 
    (lambda (l) 
    (cond [(null? l) '()] 
      [(not (pair? l)) (list l l)] 
      [else (cons (double (car l)) (double (cdr l)))]))) 

Если мой вход (double '(a((b)(c d)(((e)))))), я получаю назад ((a a) (((b b)) ((c c) (d d)) ((((e e)))))).

Я хочу получить (a a((b b)(c c d d)(((e e))))).

Как мне это сделать? Если я заменил cons на append или list, это еще больше. Я могу использовать только команды, которые вы видите там, и такие команды, как let (и другие варианты let), map, atom, if и другие логические операторы.

Answer 1

Второе условие должно быть обработано несколько иначе, чтобы это работало, по сути, мы должны остановиться не тогда, когда мы достигнем атома, но когда мы достигнем списка, первым элементом которого является атом - таким образом, мы при необходимости может перестроить выходной список. Попробуйте это:

(define double 
    (lambda (l) 
    (cond [(null? l) '()] 
      [(not (pair? (car l))) 
      (cons (car l) 
       (cons (car l) 
         (double (cdr l))))] 
      [else (cons (double (car l)) 
         (double (cdr l)))]))) 

Сейчас он работает, как ожидалось:

(double '(a ((b) (c d) (((e)))))) 
=> '(a a ((b b) (c c d d) (((e e)))))