gistfile1.clj

(defn run-machine
  "Run the virtual machine with the decoded instructions.  
   Reset the program counter when complete"
  [vm ops update-input]
  (update-input vm)
  (doseq [[op args] ops]     
    (apply op (list vm args)) ;; dodgy side effect
    (swap! (:counter vm) inc))
  (swap! (:counter vm) (constantly 0))
  (swap! (:firstrun vm) (constantly false))
  vm)