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}