RosettaCodeData/Task/Associative-array-Creation/Scheme/associative-array-creation-3.ss
2014-04-02 16:56:35 +00:00

9 lines
215 B
Scheme

#!r6rs
(import (rnrs base)
(rnrs hashtables (6)))
(define my-hash (make-hashtable equal-hash equal?))
(hashtable-set! my-hash 'a 'b)
(hashtable-set! my-hash 1 'hello)
(hashtable-set! my-hash "c" '(a b c))