Execute Brain****/Ruby: Difference between revisions

From Rosetta Code
Content added Content deleted
(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.each_with_index do |char, idx|
@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].chr].inspect if $DEBUG
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 = @jumpback_table.invert[pc]
pc = invert_table[pc]
p " #{[pc,@program[pc].chr].inspect}" if $DEBUG
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]
p " #{[pc,@program[pc].chr].inspect}" if $DEBUG
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

  1. output 'Hello World!\n'

helloworld = <<PROGRAM ++++++++++[>+++++++>++++++++++>+++>+<<<<-] >++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>. PROGRAM bf = RCBF.new(helloworld) bf.run

  1. use nested loop to increment count to 64 and print (should be '@')
  2. followed by a newline

RCBF.new('>>++++[<++++[<++++>-]>-]<<.[-]++++++++++.').run</lang>

Output:
Hello World!
@