gistfile1.clj

(defrecord Hashtable [hash-function data])

(defn create-hashtable [f]
  (Hashtable. f {}))

(defn contains? [ht item]
  (let [map (:data ht)
        key ((:hash-function ht) item)]
    (map key)))

(defn contains-any-like? [item ht]
  (let [map (:data ht)
        key ((:hash-function ht) item)]
    (clojure.core/contains? (vec (keys map)) key)))
    
(defn insert [ht item]
  (let [map (:data ht)
        key ((:hash-function ht) item)
        similar (map key)]
    (assoc ht 
           :map 
           (assoc (:map ht) 
                  key 
                  (set (conj similar item))))))

(def my-empty (create-hashtable #(mod % 5)))
(def with-one (insert my-empty 2))
(def with-another (insert with-one 7))