duplicate（）関数のcons関数の呼び出し回数を制限することはできますか？

Question

私は次のようにリスト内の項目を複製機能double()を書いた：

(defun duplicate (l) 
    (if (null l) nil 
     (cons (car l) (cons (car l) (duplicate (cdr l)))))) 

duplicate()関数は、リスト内の各項目についてCONS機能には、2つの呼び出しを行う：

Break 1 [2]> (trace cons) 
;; Traçage de la fonction CONS. 
(CONS) 

Break 1 [2]> (duplicate '(1 2 3)) 
1. Trace: (CONS '3 'NIL) 
1. Trace: CONS ==> (3) 
1. Trace: (CONS '3 '(3)) 
1. Trace: CONS ==> (3 3) 
1. Trace: (CONS '2 '(3 3)) 
1. Trace: CONS ==> (2 3 3) 
1. Trace: (CONS '2 '(2 3 3)) 
1. Trace: CONS ==> (2 2 3 3) 
1. Trace: (CONS '1 '(2 2 3 3)) 
1. Trace: CONS ==> (1 2 2 3 3) 
1. Trace: (CONS '1 '(1 2 2 3 3)) 
1. Trace: CONS ==> (1 1 2 2 3 3) 
(1 1 2 2 3 3) 

がそれですCONS関数の呼び出し回数をリスト項目ごとに1つに制限できますか？

Answer 1

同じ理由で、5リットルの水を使用して10リットルのバケツを充填することはできません。

10個の要素のリストには10​​個のコンスセルが必要です。

Answer 2

破壊的なバージョンが可能ということになるだろう：

(defun duplicate (l) 
    (if (null l) 
     nil 
    (destructuring-bind (f . r) 
     l 
     (setf (cdr l) 
      (cons f (duplicate r))) 
     l))) 

CL-USER 10 > (duplicate (list 1 2 3 4 5)) 
(1 1 2 2 3 3 4 4 5 5) 

Answer 3

あなたはすべての短所を解消することができます呼び出し：

(list* (car l) (car l) (duplicate (cdr l)))