Plists birleştirmek için kolay yolu?

Question

Common Lisp'te iki plists birleştirmek için kolay bir yolu var mı? Ya da başka bir bakış açısından: kopyaları bir plisten çıkarmak için bir yol var mı? Sadece plist ekleyebileceğimi biliyorum (ve GETF ilk bulduğu şeyi alacaktır), fakat uygulamada olduğu gibi kullanılmayan anahtarları biriktirmek istemiyorum.

(loop for p on my-plist by #'cddr ...) gibi bir şey hakkında düşünüyorum, ancak ilk düşüncemden daha kolay bir yol var!

Answer 1

Bu ilkel sürümden başlayabileceğini

: Farklı değerlerle yinelenen anahtarlar ele istiyoruz Nasıl

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