Workshop Gist #1

gistfile1.txt

(defn my-test [x]
  (.log js/console "I have run for " x)
  (+ x 10)
)

(defn my-memoize [x]
  (fn [a]
    (let [my-memoize-atom (atom {})]
      (let [my-atom @!my-memoize-atom]
        (if (contains? my-atom a)
          (my-atom a)
          (let [result (x a)]
            (swap! !my-memoize-atom assoc a result)
            result))))))

(let [my-test-memoize (my-memoize my-test)]
 (p (my-test-memoize 20))
 (p (my-test-memoize 20))
 (p (my-test-memoize 30))
)