schemeのハッシュテーブルにベクトルを追加するには？

Question

ここでは、ハッシュテーブルを作成し、それにリストに基づいてベクトルを追加しようとしました。

#<procedure> 

は今、私はそれが含まれているベクトルの大きさを取得することにより、ハッシュテーブルを照会しようとします：

(define *function-table* (make-hash)) 
(define (function-get key)(hash-ref *function-table* key)) 
(define (function-put! key value)(hash-set! *function-table* key value)) 
(define arguments '(myVector 5)) 
(lambda(pair)(function-put! (car pair) (make-hash (cadr pair))) arguments) 

は、私は、次のメッセージが表示されます。

(vector-length (function-get myVector)) 

エラーメッセージ：

myVector: undefined; 
cannot reference undefined identifier 
    context...: 

Answer 1

ハッシュテーブルにベクトルを追加するためには、あなたが実際に言ったベクトルを作成し、それを追加する必要があります。例えば、あなたがargumentsを定義したときのように、引用されたリストを使用した場合、最初の要素、すなわち、実際のシンボルであることを

(define table (make-hash))   ;; create new mutable hash table 
(define vec (make-vector 10 5)) ;; create new vector 
(hash-set! table 'myVector vec) ;; add vector to hash, key='myVector, value=vec 
(hash-ref table 'myVector)   ;; retrieve hash value for specified key 
#(5 5 5 5 5 5 5 5 5 5) 

注意。 'myVector。だから、あなたのハッシュキーとしてそれを参照するには、名前に引用符を追加する必要があります：(function-get 'myVector)。

次のことを考えてみましょう：

(define *function-table* (make-hash)) 

(define (function-get key) 
    (hash-ref *function-table* key)) 

(define (function-put! key value) 
    (hash-set! *function-table* key value)) 

(define arguments (list 'myVector (make-vector 10 5))) 

((lambda (pair) 
    (function-put! (car pair) (cadr pair))) 
arguments) 

、あなたが持つことができる：

(vector-length (function-get 'myVector)) 
=> 10 

---

EDIT：argumentsを作成する必要がベクトルの名前とサイズを含むリストである場合ハッシュに追加すると、次の操作を実行できます。

(define arguments '(myVector 5)) 
((lambda (pair) 
    (function-put! (car pair) (make-vector (cadr pair)))) 
arguments) 

その後、

、

(function-get 'myVector) 
=> #(0 0 0 0 0) 
(vector-length (function-get 'myVector)) 
=> 5