#lang racket/base

(define h1 #hash((1 . 2) (3 . 4)))

(define h2 #hash((color . red) (shape . circle)))

(define h3 #hash(((a b c) . d) (g . (e f g))))

(define h4 #hash(("name" . "Vishesh") ("location" . "Boston")))

(displayln (hash 1 2 3 4))

(displayln "equality")

(list? h1)

(hash? h1)

(hash? h2)

(hash? h3)

(hash? h4)

(hash? 'not-a-hash)

(hash-equal? h1)

(hash-eqv? h1)

(hash-eq? h1)

(hash-equal? h2)

(hash-eqv? h2)

(hash-eq? h2)

(define h (make-hash (list (cons 1 2) (cons 3 4))))

(define wh (make-weak-hash (list (cons 1 2) (cons 3 4))))

(define imh (make-immutable-hash (list (cons 1 2) (cons 3 4))))

(displayln h)

(hash? h)

(hash-equal? h)

(hash-eqv? h)

(hash-eq? h)

(hash? wh)

(hash-equal? wh)

(hash-eqv? wh)

(hash-eq? wh)

(displayln imh)

(hash? imh)

(hash-equal? imh)

(hash-eqv? imh)

(hash-eq? imh)

(displayln "numbers")

(equal? (hash-ref h1 1) 2)

(equal? (hash-ref h1 3) 4)

(displayln "symbols")

(equal? (hash-ref h2 'color) 'red)

(equal? (hash-ref h2 'shape) 'circle)

(displayln "pairs")

(equal? (hash-ref h3 '(a b c)) 'd)

(equal? (hash-ref h3 'g) '(e f g))

(displayln "strings")

(equal? (hash-ref h4 "name") "Vishesh")

(equal? (hash-ref h4 "location") "Boston")

(equal? (hash-ref h4 "age" #f) #f)

(struct posn (x y) #:transparent)

(displayln "hash-set")

(equal? (hash-set h1 5 6) #hash((1 . 2) (3 . 4) (5 . 6)))

(equal? (hash-set h1 5 6) #hasheq((1 . 2) (3 . 4) (5 . 6)))

(equal? (hash-set h1 5 6) #hasheqv((1 . 2) (3 . 4) (5 . 6)))

(equal? (hash-set h1 '(1 4) 'foobar)

#hash(((1 4) . 'foobar) (1 . 2) (3 . 4) (5 . 6)))

(equal? (hash-ref (hash-set h3 '(a b c) 'new-value) '(a b c))

'new-value)

(displayln "structs")

(equal? (hash-set h1 (posn 2 4) (list (posn 0 0) 'origin))

(hash-set h1 (posn 2 4) (list (posn 0 0) 'origin)))

(equal? (hash-set h1 (posn 2 4) (list (posn 0 0) 'origin))

(hash-set h1 (posn 2 4) (list (posn 0 0) 'not-origin)))