無法識別字符串的散列表鍵

Question

方案的eqv-hashtable數據結構似乎無法識別字符串鍵。在下面的代碼，我創建一個eqv-hashtable並創建一個新的數據：

(define state-hash (make-eqv-hashtable)) 
(hashtable-set! state-hash "S" (State "S" #f '() '())) 

然而，當我嘗試檢查，看看我的數據存儲在哈希表，我會遇到以下：

(hashtable-contains? state-hash "S") ; --> #f 

雖然hashtable-contains?過程表明，關鍵"S"目前沒有在哈希表，下面另有暗示：

(hashtable-keys state-hash) ; --> #("S") 

如果我使用密鑰以外的字符串，例如符號（例如， 'S），我沒有任何問題。任何想法爲什麼它不喜歡一個字符串作爲關鍵？

Answer 1

eqv?回報#t只有當它的參數是指完全一樣目的。試試這個：

(define key "S") 
(define state-hash (make-eqv-hashtable)) 
(hashtable-set! state-hash key (State "S" #f '() '())) 
(hashtable-contains? state-hash key) 

Answer 2

你試過make-equal-hashtable？我沒有與這些太多的經驗，但我知道，

(define str "S") 
(eqv? str "S") => #f 
(equal? str "S") => #t 

http://www.gnu.org/software/mit-scheme/documentation/mit-scheme-ref/Equivalence-Predicates.html#Equivalence-Predicates

編輯：奧斯卡有一個很好的解決方案