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

brainfuck: inline (?) because it's not a language command.

master
John Benediktsson 2020-05-16 10:13:10 -07:00
parent b3412e8930
commit 7b023ad59d
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/brainfuck/brainfuck.factor
View File

@ -26,9 +26,6 @@ TUPLE: brainfuck pointer memory ;
: (-) ( brainfuck n -- brainfuck )
[ get-memory ] dip - 255 bitand set-memory ;
: (?) ( brainfuck -- brainfuck t/f )
get-memory zero? not ;
: (.) ( brainfuck -- brainfuck )
get-memory write1 ;
@ -62,7 +59,7 @@ space = [ \t\n\r]+ => [[ [ ] ]]
unknown = (.) => [[ "Invalid input" throw ]]
ops = inc-ptr|dec-ptr|inc-mem|dec-mem|output|input|debug|space
loop = "[" {loop|ops}+ "]" => [[ second compose-all '[ [ (?) ] _ while ] ]]
loop = "[" {loop|ops}+ "]" => [[ second compose-all '[ [ get-memory zero? ] _ until ] ]]
code = (loop|ops|unknown)* => [[ compose-all ]]