创建可变长度的链表

发布于 2024-10-12 18:29:56 字数 167 浏览 2 评论 0原文

我有一个 ((a)(b)(f(x))) 列表。我想要得到的是((a)(b)(f(x1))(a)(b)(f(x2))(a)(b)(f(x3)的链表结构））））。也就是说，根据用户的要求重复附加列表，并且变量的值是变化的，使得其值将彼此唯一。我如何在 LISP 中实现它？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

烟火散人牵绊 2024-10-19 18:29:56

? (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)))

? (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)))

回复收藏 0 原文

~没有更多了~