aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

add brainf*** stuff

Browse source
This commit is contained in:
Ingy döt Net 2013-04-12 15:51:01 -07:00
parent ca9df1a6be
commit 202646288c
34 changed files with 812 additions and 2666 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/Execute-Brain----/Mathematica/execute-brain-----1.math Normal file
View file

@ -0,0 +1,22 @@
bf[program_, input_] :=
Module[{p = Characters[program], pp = 0, m, mp = 0, bc = 0,
instr = StringToStream[input],
outstr = OpenWrite[BinaryFormat -> True]},
m[_] = 0;
While[pp < Length@p,
pp++;
Switch[p[[pp]],
">", mp++,
"<", mp--,
"+", m[mp]++,
"-", m[mp]--,
".", BinaryWrite[outstr, m[mp]],
",", m[mp] = BinaryRead[instr],
"[", If[m[mp] == 0,
bc = 1;
While[bc > 0, pp++; Switch[p[[pp]], "[", bc++, "]", bc--]]],
"]", If[m[mp] != 0,
bc = -1;
While[bc < 0, pp--; Switch[p[[pp]], "[", bc++, "]", bc--]]]]];
Close[instr]; FilePrint[Close[outstr]]];
bf[program_] := bf[program, ""]

2
Task/Execute-Brain----/Mathematica/execute-brain-----2.math Normal file
View file

@ -0,0 +1,2 @@
bf["++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.
<<+++++++++++++++.>.+++.------.--------.>+.>."]