構築されたキーを使った効率的なハッシュテーブルアクセス

Question

Common Lispでは、すべてのlispオブジェクトをハッシュテーブルキーとして扱うことができます。しかし、オブジェクトの一部だけをキーとして使用したい場合はどうでしょうか。たとえば、

(defstruct action 
    (name nil :type symbol) 
    (parameters nil :type list) 
    (time 0 :type fixnum) 
    (database nil :type hash-table)) 

の場合、タイムスロットはequalpハッシュ状況には不適切です。キーとして（部分的な）lispオブジェクトを使用してハッシュテーブルにアクセスするための良い戦略は何ですか？ 1つの手法では(list (action-name act1) (action-parameters act1) (action-database act1))のようなキーを使用することがありますが、これはむしろ非効率的です。別のアプローチでは、3つの適切なスロットだけを使ってアクション構造体にサブストラクチャを作成し、そのサブストラクチャをキーとして使用することもできますが、これはハッシュテーブルアクセスの目的のために多少アドホックに見えます。よりうまくいく他の方法がありますか？

Answer 1

私はあなたがこのようなアクションを作成するときに最初に、あなたのコードに行くたとえばとして、hereから

cl-custom-hash-table

をCommon Lispのライブラリを使用します。

CL-USER> (setq action-1 (make-action 
    :parameters '(1 2 3) 
    :time 45)) 

は、このエラーが発生します：

The value NIL is not of the expected type HASH-TABLE. 
    [Condition of type TYPE-ERROR] 

CL-USER> (defstruct action 
    (name nil :type symbol) 
    (parameters nil :type list) 
    (time 0 :type fixnum) 
    (database (make-hash-table) :type hash-table)) 
ACTION 
CL-USER> (setq action-1 (make-action 
    :parameters '(1 2 3) 
    :time 45)) 

#S(ACTION :NAME NIL :PARAMETERS (1 2 3) :TIME 45 :DATABASE #<HASH-TABLE :TEST EQL size 0/60 #x3020012E708D>) 

は、その後、あなたが同じ時間か、これまで何を次のように必要とする関数を定義する必要があります：このような何かにあなたの定義をハンゲデータにaccesing

CL-USER> (action-time action-1) 
45 

別のアクションを作成

CL-USER> (setq action-2 (make-action 
    :parameters '(1 2 3) 
    :time 102)) 

#S(ACTION :NAME NIL :PARAMETERS (1 2 3) :TIME 102 :DATABASE #<HASH-TABLE :TEST EQL size 0/60 #x3020012FE58D>) 

テスト用の関数を作成する

CL-USER> (defun equal-actions-by-time (a1 a2) (= (action-time a1) (action-time a2))) 
EQUAL-ACTIONS-BY-TIME 

ハッシュ関数を定義します。

CL-USER> (defun hash-action (a) (action-time a)) 
HASH-ACTION 

は、あなたのハッシュ

CL-USER> (define-custom-hash-table-constructor make-action-hash :test equal-actions-by-time :hash-function hash-action) 
MAKE-ACTION-HASH 
CL-USER> (defparameter *foo-hash* (make-action-hash) "variable for stackoverflow") 
*FOO-HASH* 

を作成し、それを試してみてください。

CL-USER> (setf (gethash action-1 *foo-hash*) 1 
      (gethash action-2 *foo-hash*) 10) 
10 

CL-USER> (gethash action-1 *foo-hash*) 
1 
T 

分布が実装で動作する場合は、ライブラリの使用を避けることができますカスタムTEST/HASH関数をネイティブにサポートしています。カスタムハッシュテーブルで使用できない場合は

あなたは次のように動作することができますオプティマス場合

：

CL-USER> (defparameter *foo-hash* (make-hash-table :test 'equal-actions-by-time :hash-function 'hash-action)) 
*FOO-HASH* 
CL-USER> (setf (gethash action-1 *foo-hash*) 1 
      (gethash action-2 *foo-hash*) 10) 
10 
CL-USER> (gethash action-1 *foo-hash*) 
1 
T