SHARE
TWEET

Untitled

a guest Oct 4th, 2014 250 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.  
  3. (def app-state (atom {:showing :all :todos {} }))
  4.  
  5. (aset js/window "benchmark1"
  6.       (fn [e]
  7.         (dotimes [i 200]
  8.           (let [todos (:todos @app-state)
  9.                 new-todo {:id (guid)
  10.                           :title i
  11.                           :completed false}]
  12.             (swap! app-state update-in [:todos] conj new-todo)))
  13.         (println @app-state)))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top