Add some test cases, remember to flush after running program.
parent
aeca1a6e9e
commit
e30a9fc4b1
|
@ -4,6 +4,9 @@
|
|||
USING: brainfuck io.streams.string multiline tools.test ;
|
||||
|
||||
|
||||
[ "+" run-brainfuck ] must-infer
|
||||
[ "+" get-brainfuck ] must-infer
|
||||
|
||||
! Hello World!
|
||||
|
||||
[ "Hello World!\n" ] [ <" ++++++++++[>+++++++>++++++++++>+++>+<<<<-]
|
||||
|
|
|
@ -67,7 +67,7 @@ code = (loop|ops|unknown)* => [[ compose-all ]]
|
|||
PRIVATE>
|
||||
|
||||
MACRO: run-brainfuck ( code -- )
|
||||
[ <brainfuck> ] swap parse-brainfuck [ drop ] 3append ;
|
||||
[ <brainfuck> ] swap parse-brainfuck [ drop flush ] 3append ;
|
||||
|
||||
: get-brainfuck ( code -- result )
|
||||
[ run-brainfuck ] with-string-writer ; inline
|
||||
|
|
Loading…
Reference in New Issue