simple-test-for-reduce.clj

(defn step [stack char]
  (if (= char \<)
    (pop stack)
    (conj stack char)))

(defn run-program [program]
  (reduce step [] program))

(run-program (repeat 6e6 "1")) ; Takes ~4 seconds to run on my machine