steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

brainfuck: more fries with that.

db4
John Benediktsson 2014-06-17 21:09:22 -07:00
parent 96f2561b42
commit bfd615b1e8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/brainfuck/brainfuck.factor
View File

@ -35,10 +35,10 @@ TUPLE: brainfuck pointer memory ;
read1 set-memory ;
: (>) ( brainfuck n -- brainfuck )
[ + ] curry change-pointer ;
'[ _ + ] change-pointer ;
: (<) ( brainfuck n -- brainfuck )
[ - ] curry change-pointer ;
'[ _ - ] change-pointer ;
: (#) ( brainfuck -- brainfuck )
dup
@ -50,10 +50,10 @@ TUPLE: brainfuck pointer memory ;
EBNF: parse-brainfuck
inc-ptr = (">")+ => [[ length [ (>) ] curry ]]
dec-ptr = ("<")+ => [[ length [ (<) ] curry ]]
inc-mem = ("+")+ => [[ length [ (+) ] curry ]]
dec-mem = ("-")+ => [[ length [ (-) ] curry ]]
inc-ptr = (">")+ => [[ length '[ _ (>) ] ]]
dec-ptr = ("<")+ => [[ length '[ _ (<) ] ]]
inc-mem = ("+")+ => [[ length '[ _ (+) ] ]]
dec-mem = ("-")+ => [[ length '[ _ (-) ] ]]
output = "." => [[ [ (.) ] ]]
input = "," => [[ [ (,) ] ]]
debug = "#" => [[ [ (#) ] ]]
@ -61,7 +61,7 @@ space = (" "|"\t"|"\r\n"|"\n")+ => [[ [ ] ]]
unknown = (.) => [[ "Invalid input" throw ]]
ops = inc-ptr|dec-ptr|inc-mem|dec-mem|output|input|debug|space
loop = "[" {loop|ops}+ "]" => [[ second compose-all [ while ] curry [ (?) ] prefix ]]
loop = "[" {loop|ops}+ "]" => [[ second compose-all '[ [ (?) ] _ while ] ]]
code = (loop|ops|unknown)* => [[ compose-all ]]