合并 plist 的简单方法？

发布于 2024-09-12 07:13:34 字数 222 浏览 3 评论 0原文

Common Lisp 中有没有一种简单的方法来合并两个 plist？或者从另一个角度来看：有没有办法从 plist 中删除重复项？我知道我可以只附加 plist（GETF 将采用它找到的第一个），但我不想在我的应用程序运行时继续积累未使用的密钥。

我正在考虑类似 (loop for p on my-plist by #'cddr ...) 的方法，但通常有比我最初想到的更简单的方法！

原文

分享到QQ

分享到微博

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

发布评论

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

无远思近则忧 2024-09-19 07:13:34

您可以从这个原始版本开始：

(defun merge-plist (p1 p2)
  (loop with notfound = '#:notfound
        for (indicator value) on p1 by #'cddr
        when (eq (getf p2 indicator notfound) notfound) 
        do (progn
             (push value p2)
             (push indicator p2)))
  p2)

CL-USER 104 > (merge-plist '(a 1 b 2 c 3) '(a 2 b 4))
(C 3 A 2 B 4)

You could start from this primitive version:

(defun merge-plist (p1 p2)
  (loop with notfound = '#:notfound
        for (indicator value) on p1 by #'cddr
        when (eq (getf p2 indicator notfound) notfound) 
        do (progn
             (push value p2)
             (push indicator p2)))
  p2)

CL-USER 104 > (merge-plist '(a 1 b 2 c 3) '(a 2 b 4))
(C 3 A 2 B 4)

回复收藏 0 原文

~没有更多了~