Time for an 2014 update…

2014-01-17 05:32:22 +00:00 · 2014-01-17 05:32:22 +00:00 · 09687c4926
commit 09687c4926
parent 372c577f83
2520 changed files with 34227 additions and 7318 deletions
--- a/Task/Execute-Brain----/Mathematica/execute-brain-----1.math
+++ b/Task/Execute-Brain----/Mathematica/execute-brain-----1.math
@ -1,6 +1,6 @@
 bf[program_, input_] :=
  Module[{p = Characters[program], pp = 0, m, mp = 0, bc = 0,
-      instr = StringToStream[input],
+      instr = StringToStream[input]},
    m[_] = 0;
    While[pp < Length@p,
      pp++;
@ -9,7 +9,7 @@ bf[program_, input_] :=
        "<", mp--,
        "+", m[mp]++,
        "-", m[mp]--,
-        ".", BinaryWrite[OutputStream["stdout", 1], m[mp]],
+        ".", BinaryWrite["stdout", m[mp]],
        ",", m[mp] = BinaryRead[instr],
        "[", If[m[mp] == 0,
          bc = 1;