[求助][LISP] 关于重复的点对表的提取

狮狮

形如 <表>

如：

( (2 . 3) (4 . 8) (5 . a) (4 . 12))

这样的表. 针对于表对4, 可以用 (assoc 4 <表>) 来求得, 但这儿有两个的4的表对, 它只得出第一个. 下一个的4的表对,有什么方式也能求得出来?

是不是只能用到cdr或cddr 与 assoc 配合的循环读取 才能做到么?

 

Andyhon

;;; by Michael Puckett
(defun cdrs (key lst / pair rtn)
  (while (setq pair (assoc key lst))
    (setq lst (cdr (member pair lst))
          rtn (cons (cdr pair) rtn)
  ) )
  (reverse rtn)
)

Command: (setq lst '( (2 . 3) (4 . 8) (5 . a) (4 . 12)))
((2 . 3) (4 . 8) (5 . A) (4 . 12))

Command: (cdrs 4 lst)
(8 12)