在Lisp中複製哈希表

Question

我最近一直在Common Lisp中使用哈希表。我一直想知道如何製作一個包含與第一個相同的值的哈希表的單獨副本。有沒有官方的方式來做到這一點？如果沒有，你可以給我一個使用maphash的例子嗎？

Answer 1

由於clhs沒有列出副本表函數我會假設maphash是要走的路。

(defun copy-table (table) 
    (let ((new-table (make-hash-table 
        :test (hash-table-test table) 
        :size (hash-table-size table)))) 
    (maphash #'(lambda(key value) 
       (setf (gethash key new-table) value)) 
      table) 
    new-table)) 

(let ((table (make-hash-table))) 
    (mapcar #'(lambda(arg argg) 
       (setf (gethash arg table) argg)) 
      '(1 2 3 4) '(a b c d)) 
    (format t "~a~%" table) 
    (format t "~a~%" (copy-table table))) 

#<HASH-TABLE :TEST EQL :COUNT 4 {10063C7F13}> 
#<HASH-TABLE :TEST EQL :COUNT 4 {10063C86D3}> 

此功能但是不走哈希表的特殊配置考慮在內，但應足以作爲一個例子。

Answer 2

Sim's answer複製散列表，但散列表還有兩個其他功能可能是好的複製表的有效人口。下面是保留該信息的版本，同時還展示了環的與哈希表工作（作爲替代maphash）能力：

(defun copy-hash-table (hash-table) 
    (let ((ht (make-hash-table 
      :test (hash-table-test hash-table) 
      :rehash-size (hash-table-rehash-size hash-table) 
      :rehash-threshold (hash-table-rehash-threshold hash-table) 
      :size (hash-table-size hash-table)))) 
    (loop for key being each hash-key of hash-table 
     using (hash-value value) 
     do (setf (gethash key ht) value) 
     finally (return ht)))) 

Answer 3

不要重新發明輪子，用copy-hash-table從Alexandria 。