gistfile1.rb

# vim: ts=2 sw=2 et ft=ruby
# Call with two strings of ones on the tape:
# $ turing.rb ones_difference.stm 1111 11

 1. right :goto => 2
 2. cond  :if => '1', :then => 1, :else => 3
 3. right :goto => 4
 4. cond  :if => '1', :then => 5, :else => 17
 5. right :goto => 6
 6. cond  :if => '1', :then => 5, :else => 7
 7. left  :goto => 8
 8. write :symbol => 'B', :goto => 9
 9. left  :goto => 10
10. cond  :if => '1', :then => 9, :else => 11
11. left  :goto => 12
12. cond  :if => '1', :then => 11, :else => 13
13. right :goto => 14
14. cond  :if => '1', :then => 15, :else => 16
15. write :symbol => 'B', :goto => 1
16. write :symbol => '1', :goto => 18
17. left  :goto => 20
18. right :goto => 19
19. cond  :if => '1', :then => 18, :else => 21
20. halt
21. halt