gistfile1.txt

;; For versions of Clojure that don't have metadata on functions, this
;; allows you to reset the atom by passing the magic argument :reset!
(defn memoize-visible-atom-hack [f]
  (let [mem (atom {})]
    (fn [& args]
      (if (= (first args) :reset!)
        (reset! mem {})
        (if-let [e (find @mem args)]
          (val e)
          (let [ret (apply f args)]
            (swap! mem assoc args ret)
            ret))))))