Skip to content

Instantly share code, notes, and snippets.

@kanzure

kanzure/pc-trail.clj

Created February 25, 2013 22:57
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kanzure/5034109 to your computer and use it in GitHub Desktop.
Save kanzure/5034109 to your computer and use it in GitHub Desktop.
Download ZIP
pc-trail
Raw
pc-trail.clj
(defn pc-trail
"Track the PC for a number of ticks."
[state ticks]
(tick state)
(set-state! state)
(loop [pcs [(PC)] ]
(if (> (count pcs) ticks) pcs
(do
(com.aurellem.gb.Gb/tick)
(recur (conj pcs (PC)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment