ハッシュコンシング

;; 弱いハッシュ
;; 
( require 'hash-table ) 

( ( make-weak-table . args )を定義する( make-hash-table argsを適用する))   
    

( define ( weak-table-set!テーブルキーデータ) ( let (( w ( hash-table-refテーブルキー#f ))) ( if w ( vector-set! w 0データ) ( let (( w ( make-weak-vector 1 ))) ( vector-set! w 0データ) ( hash-table-set!テーブルキーw )))))    
       
     
           
         
           
           

( define (弱いテーブル参照テーブルキー) ( let (( w (ハッシュテーブル参照テーブルキー#f ))) ( if w (ベクトル参照w 0 ) #f )))   
       
     
          
      

;; メモ化ファクトリ: 指定された (副作用のない) 手続きに対して、
;;
引数のリスト全体に対して equal? の意味で結果の一部をメモ化する同じ処理を実行する手続きを返します
;; 
( define ( make-weak-memoizer proc ) ( let (( cache ( make-weak-table equal? ))) ( lambda args ( let (( x ( weakness-table-ref cache args ))) ( if ( bwp-object? x ) ( let (( r ( apply proc args ))) ( weakness-table-set! cache args r ) r ) x )))))