Common Lisp: viết tắt để khởi tạo một bảng băm với nhiều mục nhập

Question

Tôi đang tìm một cách có thể không tiết kiệm để khởi tạo bảng băm trong Common Lisp. Ví dụ. một cái gì đó mà làm việc cho các bảng băm liên tục, mà còn để tải trước các băm biến. Trong CLISP tôi đang sử dụng:

(defconstant +my-map+ #S(HASH-TABLE :TEST FASTHASH-EQ 
    (key1 . "value1") 
    ... 
    (keyN . "valueN") 
)) 

nhưng tiếc là định dạng này chỉ hoạt động trên CLISP.

Answer 1

Một lập trình có thể xây dựng một bảng băm lúc đọc:

(defvar *ht* #.(let ((ht (make-hash-table))) 
       (loop for (key . value) in 
         '((a . 1) (b . 2) (c . 3)) 
         do (setf (gethash key ht) value)) 
       ht)) 

(describe *ht*) 

#. được sử dụng để đánh giá thời gian đọc. Trình biên dịch sau đó sẽ đổ bảng băm vào tệp FASL.

này sau đó có thể được biên dịch:

Sử dụng SBCL:

* (compile-file "/tmp/test.lisp") 

; compiling file "/private/tmp/test.lisp" (written 24 MAY 2012 10:08:49 PM): 
; compiling (DEFVAR *HT* ...) 
; compiling (DESCRIBE *HT*) 

; /tmp/test.fasl written 
; compilation finished in 0:00:00.360 
#P"/private/tmp/test.fasl" 
NIL 
NIL 
* (load *) 

#<HASH-TABLE :TEST EQL :COUNT 3 {100299EA43}> 
    [hash-table] 

Occupancy: 0.2 
Rehash-threshold: 1.0 
Rehash-size: 1.5 
Size: 16 
Synchronized: no 
T 
* *ht* 

#<HASH-TABLE :TEST EQL :COUNT 3 {100299EA43}> 

Tạo một bảng băm là một hàm:

(defun create-hashtable (alist 
         &key (test 'eql) 
         &aux (ht (make-hash-table :test test))) 
    (loop for (key . value) in alist 
     do (setf (gethash key ht) value)) 
    ht) 

Answer 2

Alexandria có chức năng alist-hash-table, mà bạn có thể thấy hữu ích.