Skip to content

Instantly share code, notes, and snippets.

@ochronus
Created April 2, 2016 10:11
Show Gist options
  • Save ochronus/c1b54117e7127c2f21f305d5a473390e to your computer and use it in GitHub Desktop.
Save ochronus/c1b54117e7127c2f21f305d5a473390e to your computer and use it in GitHub Desktop.
\< (recur cells (dec current-cell) (inc instruction-pointer))
\> (let [
next-ptr (inc current-cell)
next-cells (if (= next-ptr (count cells))
(conj cells 0N)
cells)]
(recur next-cells next-ptr (inc instruction-pointer)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment