gistfile1.clj

(defn f []
 (-> #{}
  (transient)
  (conj! -24)
  (persistent!)
  (conj 0)
  (conj 0)
  (conj 0)
  (conj 0)
  (conj 0)
  (conj 0)
  (transient)
  (conj! 23)
  (conj! 0)
  (conj! 0)
  (conj! 0)
  (conj! 0)
  (conj! 0)
  (conj! 0)
  (conj! 0)
  (conj! 0)
  (disj! 23)
  (persistent!)
  (conj 23)))
  
(defn g []
 (-> {}
  (assoc -8 0)
  (dissoc 0)
  (transient)
  (assoc! 7 0)
  (dissoc! 0)
  (assoc! -1 0)
  (dissoc! 0)
  (assoc! 0 0)
  (assoc! -2 0)
  (assoc! -3 0)
  (dissoc! -4)
  (assoc! 1 0)
  (dissoc! 2)
  (dissoc! 2)
  (assoc! 2 0)
  (dissoc! -4)
  (dissoc! 3)
  (dissoc! 3)
  (assoc! 3 0)
  (dissoc! -8)
  (persistent!)
  (dissoc 0)
  (dissoc 0)
  (assoc -8 0)))
  
(= (f) (f)) ;; false!
(= (g) (g)) ;; also false!