184 lines
5.2 KiB
Racket
184 lines
5.2 KiB
Racket
#lang planet dyoo/whalesong/base
|
|
|
|
(hash? 1)
|
|
(hash? "potatoes")
|
|
(hash? (make-hash))
|
|
(hash? (make-hash '((1 . one)
|
|
(2 . two)
|
|
(3 . three)
|
|
(4 . four))))
|
|
(hash? (make-hasheqv))
|
|
(hash? (make-hasheqv '((1 . one)
|
|
(2 . two)
|
|
(3 . three)
|
|
(4 . four))))
|
|
(hash? (make-hasheq))
|
|
(hash? (make-hasheq '((1 . one)
|
|
(2 . two)
|
|
(3 . three)
|
|
(4 . four))))
|
|
|
|
(make-hash)
|
|
(make-hasheqv)
|
|
(make-hasheq)
|
|
|
|
(make-hash '((1 . one)
|
|
(2 . two)
|
|
(3 . three)
|
|
(4 . four)))
|
|
(make-hasheqv '((1 . one)
|
|
(2 . two)
|
|
(3 . three)
|
|
(4 . four)))
|
|
(make-hasheq '((1 . one)
|
|
(2 . two)
|
|
(3 . three)
|
|
(4 . four)))
|
|
|
|
(hash-ref (make-hash '((1 . one)
|
|
(2 . two)
|
|
(3 . three)))
|
|
1)
|
|
|
|
(hash-ref (make-hash '((1 . one)
|
|
(2 . two)
|
|
(3 . three)))
|
|
4
|
|
(lambda () 'not-found))
|
|
|
|
|
|
|
|
(define words '("this" "is" "a" "test" "that" "is" "only" "a" "test!"))
|
|
(define ht (make-hash))
|
|
(for-each (lambda (w)
|
|
(hash-set! ht
|
|
w
|
|
(add1 (hash-ref ht w (lambda () 0)))))
|
|
words)
|
|
(hash-ref ht "this")
|
|
(hash-ref ht "is")
|
|
(hash-ref ht "a")
|
|
(hash-ref ht "test")
|
|
(hash-ref ht "that")
|
|
(hash-ref ht "only")
|
|
(hash-ref ht "test!")
|
|
|
|
|
|
|
|
(make-immutable-hash '((1 . one)
|
|
(2 . two)
|
|
(3 . three)
|
|
(4 . four)))
|
|
(make-immutable-hasheqv '((1 . one)
|
|
(2 . two)
|
|
(3 . three)
|
|
(4 . four)))
|
|
(make-immutable-hasheq '((1 . one)
|
|
(2 . two)
|
|
(3 . three)
|
|
(4 . four)))
|
|
(hash? (make-immutable-hash))
|
|
(hash? (make-immutable-hasheq))
|
|
(hash? (make-immutable-hasheqv))
|
|
(hash-equal? (make-immutable-hash))
|
|
(hash-equal? (make-immutable-hasheq))
|
|
(hash-equal? (make-immutable-hasheqv))
|
|
(hash-eq? (make-immutable-hash))
|
|
(hash-eq? (make-immutable-hasheq))
|
|
(hash-eq? (make-immutable-hasheqv))
|
|
(hash-eqv? (make-immutable-hash))
|
|
(hash-eqv? (make-immutable-hasheq))
|
|
(hash-eqv? (make-immutable-hasheqv))
|
|
(let* ([ht (make-immutable-hash)]
|
|
[ht (hash-set ht 'name "danny")]
|
|
[ht (hash-set ht 'email "dyoo@hashcollision.org")])
|
|
(displayln (hash-ref ht 'name "unknown"))
|
|
(displayln (hash-ref ht 'email "unknown"))
|
|
(displayln (hash-ref ht 'phone "unknown")))
|
|
|
|
|
|
|
|
(let ([ht (make-hash '((1 . one)
|
|
(2 . two)))])
|
|
(hash-remove! ht 1)
|
|
(displayln (hash-ref ht 1 'not-there))
|
|
(displayln (hash-ref ht 2 'not-there)))
|
|
|
|
(let* ([ht (make-immutable-hash '((1 . one)
|
|
(2 . two)))])
|
|
(hash-remove ht 1)
|
|
(displayln (hash-ref ht 1 'not-there))
|
|
(displayln (hash-ref ht 2 'not-there)))
|
|
|
|
(let* ([ht (make-immutable-hash '((1 . one)
|
|
(2 . two)))]
|
|
[ht (hash-remove ht 1)])
|
|
(displayln (hash-ref ht 1 'not-there))
|
|
(displayln (hash-ref ht 2 'not-there)))
|
|
|
|
(newline)
|
|
"hash-has-key"
|
|
(hash-has-key? (make-hash) 1)
|
|
(hash-has-key? (make-hash '((1 . one))) 1)
|
|
(hash-has-key? (make-immutable-hash) 1)
|
|
(hash-has-key? (make-immutable-hash '((1 . one))) 1)
|
|
|
|
(newline)
|
|
(hash 1 'one 2 'two)
|
|
(hasheqv 1 'one 2 'two)
|
|
(hasheq 1 'one 2 'two)
|
|
|
|
|
|
(newline)
|
|
(let* ([h1 (make-hash '((a . "A")))]
|
|
[h2 (hash-copy h1)])
|
|
(hash-set! h2 'a "alphabet")
|
|
(displayln (hash-ref h1 'a))
|
|
(displayln (hash-ref h2 'a)))
|
|
|
|
|
|
(newline)
|
|
(hash-count (make-hash '((a . a))))
|
|
(hash-count (make-immutable-hash '((b . b)
|
|
(c . d))))
|
|
|
|
(newline)
|
|
(hash-equal? (make-hash))
|
|
(hash-equal? (make-hasheq))
|
|
(hash-equal? (make-hasheqv))
|
|
(hash-eq? (make-hash))
|
|
(hash-eq? (make-hasheq))
|
|
(hash-eq? (make-hasheqv))
|
|
(hash-eqv? (make-hash))
|
|
(hash-eqv? (make-hasheq))
|
|
(hash-eqv? (make-hasheqv))
|
|
|
|
|
|
(newline)
|
|
(hash-keys (make-hash '((name . concrete-mathematics)
|
|
(author . graham-knuth-patashnik))))
|
|
(hash-keys (make-immutable-hash '((name . concrete-mathematics)
|
|
(author . graham-knuth-patashnik))))
|
|
(hash-values (make-hash '((name . concrete-mathematics)
|
|
(author . graham-knuth-patashnik))))
|
|
(hash-values (make-immutable-hash '((name . concrete-mathematics)
|
|
(author . graham-knuth-patashnik))))
|
|
(hash-map (make-hash '((name . concrete-mathematics)
|
|
(author . graham-knuth-patashnik)))
|
|
(lambda (k v) (list v k)))
|
|
(hash-map (make-immutable-hash '((name . concrete-mathematics)
|
|
(author . graham-knuth-patashnik)))
|
|
(lambda (k v) (list v k)))
|
|
|
|
(hash-for-each (make-hash '((name . concrete-mathematics)
|
|
(author . graham-knuth-patashnik)))
|
|
(lambda (k v)
|
|
(write (symbol->string k))
|
|
(newline)))
|
|
|
|
(hash-for-each (make-immutable-hash '((name . concrete-mathematics)
|
|
(author . graham-knuth-patashnik)))
|
|
(lambda (k v)
|
|
(write (symbol->string v))
|
|
(newline)))
|