Association in Common Lisp

6
以下是需要翻译的内容:

有一个以下格式的结构:

 (setq dist '(((1 1) 1)
              ((0 2) 3)
              ((1 2) 1)
              ((2 3) 3)
              ((3 5) 4)))

有没有任何函数,如果我调用
(myf '(0 2))

可以给我提供吗?
3

或者

((0 2) 3)

类似于反向assoc的东西

1个回答

8
我不理解为什么这被称为反向ASSOC。
(assoc '(0 2) dist :test #'equal)
> ((0 2) 3)

看起来ASSOC运行良好,只要你改变test函数,使得用作键的列表被正确测试。


2
顺便提一句,如果你真的想要一个“反向”的关联,即查找CDR匹配的那对键值对,可以使用 RASSOC。 - Svante

网页内容由stack overflow 提供, 点击上面的
可以查看英文原文,
原文链接