gistfile1.clj

(defn bf [tape mem ptr skip]
     (let [[c & tape] tape
           ]
       (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)
               (bf tape mem ptr skip)
               )
         "]" (when
               (or (= (mem ptr) 0) skip)
               (recur tape mem ptr skip)
               )
         '() ; end of tape
         )     
       )       
  )