Data structures 使用构造键的高效哈希表访问_Data Structures_Common Lisp_Hashtable

Data structures 使用构造键的高效哈希表访问

data-structures common-lisp

Data structures 使用构造键的高效哈希表访问,data-structures,common-lisp,hashtable,Data Structures,Common Lisp,Hashtable,公共Lisp允许任何Lisp对象用作哈希表键。但是，如果只想使用对象的一部分作为键，该怎么办。例如，在 (defstruct action (name nil :type symbol) (parameters nil :type list) (time 0 :type fixnum) (database nil :type hash-table)) 该时隙不适用于equalp哈希情况。使用（部分）lisp对象作为键访问哈希表的好策略是什么？一种方法可能使用类似于（list（a

公共Lisp允许任何Lisp对象用作哈希表键。但是，如果只想使用对象的一部分作为键，该怎么办。例如，在

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

该时隙不适用于equalp哈希情况。使用（部分）lisp对象作为键访问哈希表的好策略是什么？一种方法可能使用类似于

（list（action name act1）（action parameters act1）（action database act1））

的键，但这似乎效率很低。另一种方法可能只使用三个适当的插槽创建action defstruct的子结构，并将该子结构用作键，但这似乎只是为了访问哈希表而有点特别。还有其他更好的方法吗？

我将使用中的Common Lisp库，例如

然后转到代码，首先创建如下操作：

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

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

产生此错误：

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

因此，您需要将定义更改为以下内容：

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

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

创建另一个操作

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

如果发行版将在本机支持自定义测试/哈希函数的实现中工作，则可以避免使用库，否则可以与自定义哈希表一起使用

在optimus的情况下，您可以按如下方式工作：

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

我将使用中的公共Lisp库，例如