gistfile1.clj

;; 1. top-level let
(let [state (atom 0)]
  (defn do-stuff1 []
    (swap! state inc))

  (defn do-stuff2 []
    (swap! state dec)))

;; 2. top-level atom
(def state (atom 0))

(defn do-stuff1 []
  (swap! state inc))

(defn do-stuff2 []
  (swap! state dec))

;; 3. atom arg
(defn do-stuff1 [state]
  (swap! state inc))

(defn do-stuff2 [state]
  (swap! state dec))