gistfile1.txt

(def tape-hw (seq
               "++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>."
     ))

(def tape-ano
     (seq
       (str
         "+++[>+++++<-]>[>+>+++>+>++>+++++>++<[++<]>---]>->-.[>++>+<<--]>--.--.+.>>>++.<<"
         "<------.+.+++++.>>-.<++++.<--.>>>.<<---.<.-->-.>+.[+++++.---<]>>[.--->]<<.<+.+"
         "+.++>+++[.<][.]<++."
         )))

(defn bf [tape mem ptr skip]
     (let [[c & tape] tape
           ]
       (prn c)
       (prn tape )
       (prn skip ptr mem)
       (case c
         \> (recur tape mem (inc ptr) skip)
         \< (recur tape mem (dec ptr) skip)
         \+ (recur tape (assoc mem ptr (inc (mem ptr))) ptr skip)
         \- (recur tape (assoc mem ptr (dec (mem ptr))) ptr skip)
         \, (do
               (prn "not implemented")
               (recur tape mem ptr skip))
         \. (do
               (prn (char (mem ptr)))
               (recur tape mem ptr skip))
         \[ (if
               (or (= (mem ptr) 0) skip)
               (bf tape mem ptr true)
               ;else
               (bf tape mem ptr skip)
               )
         \] (when
               (or (= (mem ptr) 0) skip)
               (recur tape mem ptr skip)
               )
         (prn "end of tape)")

         )))

(def mem  {:0 0 :1 0 :2 0 :3 0 :4 0} )


(bf tape-hw mem 0 false)