複製時のリスト構造を維持する

Question

私の関数は（a a b b c c）を返しますが、（a（b c））となるようにリスト内のすべての項目を複製する関数を書いています。内部リスト構造を保持するにはどうすればよいですか？ここに私の現在のコードは次のとおりです。

(define double 
    (lambda (l) 
    (cond ((null? l) '()) 
      ((list? l) (append (double (car l)) (double (cdr l)))) 
      (else (append (list l) (list l))) 
    ) 
)) 

Answer 1

リストの構造を維持するためには、appendの使用を避ける必要があります。ここで実装されます。たとえば

(define (double lst) 
    (cond 
    [(null? lst) empty] 
    [(list? (car lst)) 
    (cons (double (car lst)) 
      (double (cdr lst)))] 
    [else 
    (cons (car lst) (cons (car lst) 
      (double (cdr lst))))])) 

、

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

Answer 2

浅いコピー：

(define (copy-list lst) 
    (map values lst)) 

そしてもちろんmapのは1つのlist引数のために、このようなものです：

(define (map f lst) 
    (if (null? lst) 
     '() 
     (cons (f (car lst)) 
      (map f (cdr lst))))) 

ディープコピー：

(define (copy-tree tree) 
    (accumulate-tree tree values cons '())) 

そして、これがどのようにaccumulate-tree行われている。

(define (accumulate-tree tree term combiner null-value) 
    (let rec ((tree tree)) 
    (cond ((null? tree) null-value) 
      ((not (pair? tree)) (term tree)) 
      (else (combiner (rec (car tree)) 
          (rec (cdr tree)))))))