可変長のリンクリストの作成

Question

私は((a)(b)(f(x)))のリストを持っています。私が得たいのは、((a)(b)(f(x1))(a)(b)(f(x2))(a)(b)(f(x3))))のリンクリスト構造です。すなわち、ユーザの要求に基づいてリストを繰り返し追加し、変数の値は、その値がお互いからユニークになるように、チャニングしている。どのように私はLISPでそれを実装できますか？

Answer 1

? (let ((list '((a) (b) (f (x)))) 
     (n 3)) 
    (flet ((copier (l n) 
      (setf l (copy-tree l)) 
      (let ((sym (first (second (third l))))) 
       (setf (first (second (third l))) 
        (intern (format nil "~a~a" 
            (symbol-name sym) 
            n)))) 
      l)) 
     (loop for i from 1 upto n 
     nconc (copier list i)))) 

((A) (B) (F (X1)) (A) (B) (F (X2)) (A) (B) (F (X3)))