Ruby中使用连续体Continuation实现生成器

require 'continuation'

#一个生成器"抽象"类
class G
 def initialize
  do_g
 end
 
 #@main_context实际是next的"出口",让next返回@main_context.call(v)的值,即生成的数
 def next
  callcc do |c|
   @main_context = c
   @g_context.call
  end
 end
private
 def do_g
  callcc do |c|
   @g_context = c
   return
  end
  g_loop #虚方法,由实际具体类实现,但由G来调用!
 end

 #@g_context实际为G的内在驱动器,其会反复回到g_loop中不断生成新的数
 def g(v)
  callcc do |c|
   @g_context = c
   @main_context.call(v)
  end
 end
end

#具体的生成器类,用来生成Fibonacci数列
class FibG < G
private
 #具体类实现g_loop,实际要怎么生成必须由具体类说了算
 #g_loop不能直接由FibG的实例对象调用,而要通过G来驱动
 def g_loop
  g(1)
  a,b=1,1
  loop do
   g(b)
   a,b=b,a+b  
  end
 end
end

class IncG < G
 def initialize(inc_val=10)
  super()
  @inc_val = inc_val
 end
<span style="font-size:18px;"></span><pre name="code" class="ruby">private 
 def g_loop
  x=0
  loop do
   g(x+@inc_val)
   x+=@inc_val
  end
 end
end

f = FibG.new
100.times {printf "%d " % f.next}
puts

i = IncG.new
100.times {printf "%d " % i.next}
puts

i = IncG.new(11)
100.times {printf "%d " % i.next}