wozniak.clj

(eval((fn[program](let [n (zipmap '(+ - > < . ?)(repeatedly gensym))](letfn[(f*[
s] (if (vector? s) `(while (not (~(n '?))) ~@(map f* s)) `(~(n s))))]`(let [t# (
int-array 100 0)pt# (atom 0)a#(fn[c#]#(aset t# @pt#(c# (aget t# @pt#))))b#(fn[d#
]#(swap! pt# d#)) ~(vec (map n '(+ - > <)))(map #(%1 %2)[a# a# b# b#](cycle [inc
dec]))~(n '.)#(print(char(aget t# @pt#)))~(n '?)#(zero?(aget t# @pt#))]~@(map f*
(read-string(str "("(->> program (interpose \space) (apply str)) ")" )))))))"+++
+++++[>++++++++<-]>+.[>+<-]+++++[>-----<-]>--------.[>+<-]++++++++[>++++++++<-]>
++++++++++++.+++.+++++.[>+<-]+++++++++[>---------<-]>---.[>+<-]++++++++[>+++++++
+<-]>+++++++++++++++.---------.[>+<-]++++++++[>--------<-]>------.[>+<-]++++++++
[>++++++++<-]>++++++++.-------.++.++++++++.--.+++++.-------.[>+<-]++++++++[>----
----<-]>-------.[>+<-]++++++++[>++++++++<-]>+++++++++.++++++++++.[>+<-]+++++++++
[>---------<-]>--.[>+<-]++++++++[>++++++++<-]>++++++++++++++++.----.-----------.
++++++++++++++++++++++++.----------------.+++++.-------.[>+<-]++++++++[>--------
<-]>-------.[>+<-]+++++++++[>+++++++++<-]>++++++.--------------.+++++++++++.----
--------.[>+<-]++++++++[>--------<-]>--------.[>+<-]++++++++[>++++++++<-]>++++++
+++++++++.+++++.------------.---.+++++++++++++.[>+<-]+++++++++[>---------<-]>-.[
>+<-]++++++++[>++++++++<-]>++++++++++++++++.-----------.++++++++++.+.----.------
-.[>+<-]+++++++[>-------<-]>--------.------------.[>+<-]+++++++++[>+++++++++<-]>
++++++++.----------.++++++.[>+<-]+++++++++[>---------<-]>----.[>+<-]++++++++[>++
++++++<-]>+++++++++++.+++.+.++++++++.[>+<-]++++++++[>--------<-]>-----------.---
---------.[>+<-]++++++++[>++++++++<-]>+++++++.--.+++++++++++++++..-----------.++
+++.-------.[>+<-]++++++++[>--------<-]>-------.[>+<-]+++++++++[>+++++++++<-]>++
+.------------.---.++++++++.[>+<-]++++++++[>--------<-]>-------------.[>+<-]++++
+++++[>+++++++++<-]>+++.-----.[>+<-]++++++++[>--------<-]>---------------.[>+<-]
++++++++[>++++++++<-]>++++.+++++++++++.[>+<-]++++++++[>--------<-]>-------------
--.[>+<-]+++++++++[>+++++++++<-]>++.+.--.-----------------.+++++++++++++.-------
.--.[>+<-]++++++++[>--------<-]>-----.[>+<-]+++++++++[>+++++++++<-]>+++.--------
----.+.+++++.-------.++++++++++++.[>+<-]++++++++[>--------<-]>-----.------------
--.+++++++++++++.[>+<-]++++++[>++++++<-]>++.[>+<-]+++++[>+++++<-]>++++++++.-----
----------.+++++++++++++++++.-----------------.[>+<-]++++++++[>--------<-]>-----
.[>+<-]+++++++[>+++++++<-]>++++++.++++++++++++++++++++++++.+++++++++++.---------
---.-----.--------.++++++++++.[>+<-]+++++++++[>---------<-]>----------------."))