Execute Brain****/Ruby: Difference between revisions
Content added Content deleted
m (moved RCBF/Ruby to Execute Brain****/Ruby) |
(improvement of the debugging output, each_with_index->with_index) |
||
Line 13: | Line 13: | ||
jumpback_table = {} |
jumpback_table = {} |
||
jump_to = [] |
jump_to = [] |
||
@program.each_char. |
@program.each_char.with_index do |char, idx| |
||
case char |
case char |
||
when "[" then jump_to.push(idx) |
when "[" then jump_to.push(idx) |
||
Line 21: | Line 21: | ||
jumpback_table |
jumpback_table |
||
end |
end |
||
def run |
def run |
||
invert_table = @jumpback_table.invert |
|||
dc = 0 |
dc = 0 |
||
pc = 0 |
pc = 0 |
||
while pc < @program.length |
while pc < @program.length |
||
print [pc, @program[pc] |
print [pc, @program[pc]] if $DEBUG |
||
case @program[pc] |
case @program[pc] |
||
when ?> |
when ?> |
||
dc += 1 |
dc += 1 |
||
print "\t#{dc}" if $DEBUG |
print "\t#{dc}" if $DEBUG |
||
when ?< |
when ?< |
||
dc -= 1 |
dc -= 1 |
||
print "\t#{dc}" if $DEBUG |
print "\t#{dc}" if $DEBUG |
||
when ?+ |
when ?+ |
||
@d[dc] += 1 |
@d[dc] += 1 |
||
print "\t#{dc},#{@d[dc]}" if $DEBUG |
print "\t#{dc},#{@d[dc]}" if $DEBUG |
||
when ?- |
when ?- |
||
@d[dc] -= 1 |
@d[dc] -= 1 |
||
print "\t#{dc},#{@d[dc]}" if $DEBUG |
print "\t#{dc},#{@d[dc]}" if $DEBUG |
||
when ?. |
when ?. |
||
print "\t#{dc},#{@d[dc]}\t" if $DEBUG |
print "\t#{dc},#{@d[dc]}\t" if $DEBUG |
||
print @d[dc].chr |
print @d[dc].chr |
||
when ?, |
when ?, |
||
@d[dc] = $stdin.getc |
@d[dc] = $stdin.getc |
||
print "\t#{dc},#{@d[dc]}" if $DEBUG |
print "\t#{dc},#{@d[dc]}" if $DEBUG |
||
when ?[ |
when ?[ |
||
if @d[dc] == 0 |
if @d[dc] == 0 |
||
pc = |
pc = invert_table[pc] |
||
print " #{[pc,@program[pc]]}" if $DEBUG |
|||
end |
end |
||
when ?] |
when ?] |
||
if @d[dc] != 0 |
if @d[dc] != 0 |
||
pc = @jumpback_table[pc] |
pc = @jumpback_table[pc] |
||
print " #{[pc,@program[pc]]}" if $DEBUG |
|||
end |
end |
||
end |
end |
||
Line 71: | Line 72: | ||
bf = RCBF.new(helloworld) |
bf = RCBF.new(helloworld) |
||
bf.run |
bf.run |
||
# use nested loop to increment count to 64 and print (should be '@') |
# use nested loop to increment count to 64 and print (should be '@') |
||
# followed by a newline |
# followed by a newline |
||
RCBF.new('>>++++[<++++[<++++>-]>-]<<.[-]++++++++++.').run</lang> |
RCBF.new('>>++++[<++++[<++++>-]>-]<<.[-]++++++++++.').run</lang> |
||
{{out}} |
|||
Output: |
|||
<pre>Hello World! |
<pre>Hello World! |
||
@</pre> |
@</pre> |
Revision as of 03:55, 11 December 2014
Execute Brain****/Ruby is an implementation of Brainf***.
Other implementations of Brainf***.
Execute Brain****/Ruby is part of RCBF. You may find other members of RCBF at Category:RCBF.
An implementation of a Brainf*** interpreter in Ruby. More effort could be made to read a program from a file or from stdin.
<lang ruby>class RCBF
def initialize(program) @d = [0] * 30_000 @program = program @jumpback_table = read_program end def read_program jumpback_table = {} jump_to = [] @program.each_char.with_index do |char, idx| case char when "[" then jump_to.push(idx) when "]" then jumpback_table[idx] = jump_to.pop end end jumpback_table end def run invert_table = @jumpback_table.invert dc = 0 pc = 0 while pc < @program.length print [pc, @program[pc]] if $DEBUG case @program[pc] when ?> dc += 1 print "\t#{dc}" if $DEBUG when ?< dc -= 1 print "\t#{dc}" if $DEBUG when ?+ @d[dc] += 1 print "\t#{dc},#{@d[dc]}" if $DEBUG when ?- @d[dc] -= 1 print "\t#{dc},#{@d[dc]}" if $DEBUG when ?. print "\t#{dc},#{@d[dc]}\t" if $DEBUG print @d[dc].chr when ?, @d[dc] = $stdin.getc print "\t#{dc},#{@d[dc]}" if $DEBUG when ?[ if @d[dc] == 0 pc = invert_table[pc] print " #{[pc,@program[pc]]}" if $DEBUG end when ?] if @d[dc] != 0 pc = @jumpback_table[pc] print " #{[pc,@program[pc]]}" if $DEBUG end end puts if $DEBUG pc += 1 end end
end
- output 'Hello World!\n'
helloworld = <<PROGRAM ++++++++++[>+++++++>++++++++++>+++>+<<<<-] >++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>. PROGRAM bf = RCBF.new(helloworld) bf.run
- use nested loop to increment count to 64 and print (should be '@')
- followed by a newline
RCBF.new('>>++++[<++++[<++++>-]>-]<<.[-]++++++++++.').run</lang>
- Output:
Hello World! @