協会

2009-12-05 18 views
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

答えて

8

なぜこれが逆ASSOCと呼ばれるのか分かりません。

(assoc '(0 2) dist :test #'equal) 
> ((0 2) 3) 

ASSOCがキーとして使用リストが正しくテストされるようにあなたは、テスト機能を変更する提供、正常に動作しますように見えます。

+2

ちなみに、実際に「リバース」assocが必要な場合、つまりCDRが一致するペアを見つける場合は、RASSOCがあります。 – Svante