Skip to content

Instantly share code, notes, and snippets.

@ochronus

ochronus/brainfuck-clojure-7.clj

Created April 2, 2016 10:12
Show Gist options
  • Save ochronus/3ce1441aaa34400950ca201257ee36d1 to your computer and use it in GitHub Desktop.
Save ochronus/3ce1441aaa34400950ca201257ee36d1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
brainfuck-clojure-7.clj
\[ (recur cells current-cell (inc (if (zero? (nth cells current-cell))
(find-bracket \[ \] instruction-pointer inc)
instruction-pointer)))
\] (recur cells current-cell (find-bracket \] \[ instruction-pointer dec))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment