一个简单的ruby生成器例子(用连续体Continuation实现)

    ruby中有很多经典的驱动器结构,比如枚举器和生成器等.这次简单介绍下生成器的概念.生成器是按照功能要求,一次产生一个对象,或称之为生成一个对象的方法.ruby中的连续体正好可以用来完成生成器的功能.连续体说起来晦涩,其实还是很简单的,它有3个特点:

1. callcc方法会给代码块传一个连续体对象,你可以保存该对象;

2. 当调用连续体的call方法时指令流会跳转到callcc方法之后;

3. 如果给连续体的call方法传递对象,则callcc方法会返回该对象,如果不传递对象,callcc会返回nil.

我们下面参考一段实例代码,我加了注释.该代码用来生成Fibonacci数列和一个递增数列.两个类FibG和IncG都继承于"抽象类"G,G实现生成器的"抽象"事件驱动逻辑,而具体类FibG和IncG用来完成实际生成逻辑,全在代码里啦:

#!/usr/bin/ruby

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}
				
时间: 2024-11-14 18:48:36

一个简单的ruby生成器例子(用连续体Continuation实现)的相关文章

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

ruby中有很多经典的驱动器结构,比如枚举器和生成器等.这次简单介绍下生成器的概念.生成器是按照功能要求,一次产生一个对象,或称之为生成一个对象的方法.ruby中的连续体正好可以用来完成生成器的功能.连续体说起来晦涩,其实还是很简单的,它有3个特点: 1. callcc方法会给代码块传一个连续体对象,你可以保存该对象; 2. 当调用连续体的call方法时指令流会跳转到callcc方法之后; 3. 如果给连续体的call方法传递对象,则callcc方法会返回该对象,如果不传递对象,callcc会返

一个简单的XML Schema例子

我们可以看到,DTD的语法相当复杂,并且它不符合XML文件的标准,自成一个体系.也就是说DTD文档本身并不是一个良好形式的XML文档,上面的关于DTD的介绍也仅仅是作了一个简介,目的是帮助大家能读懂DTD文件以及在必要时创建简单的DTD文件,因为现在很多的XML应用是建立在DTD之上的. 另外一个代替DTD的就是W3C定义的Schema,Schema从字面意义上来说,可以翻译成模式.大纲.计划.规划等等.它的基本意思就是说为XML文档制定一种模式. Schema相对于DTD的明显好处是XML

一个简单谱聚类的例子

聚类是一种常见的无监督学习方法,目的在于从原始无标记数据中提取出分类标记.最简单的代表是K-means聚类,下面给出一个简单例子: n=300; c=3; t=randperm(n); x=[randn(1,n/3)-2 randn(1,n/3) randn(1,n/3)+2; randn(1,n/3) randn(1,n/3)+4 randn(1,n/3)]'; m=x(t(1:c),:); x2=sum(x.^2,2); s0(1:c,1)=inf; for o=1:1000 m2=sum(

Windows Azure AppFabric 入门教学系列 (二):一个简单的Service Bus例子

本文是Windows Azure AppFabric入门教学的第二篇文章,可以说是正式的开始学习AppFabric了.为了使后续的学习顺利进行请确保已浏览本教程的第一篇文章,并以按照该文完成了AppFabric项目和命名空间的创建.我们知道,AppFabirc由Service Bus 和 Access Control Service组成.本篇教学以一个简单的Echo程序来向大家简单的介绍一下Service Bus,让大家能有一个初步了解. 该程序演示了Client向Service发送消息,ser

一个简单网上书城的例子(九)!

buyfinish.asp:完成一次交易!记录客户信息! <%Name=Request("Customer_N")Tel=Request("Customer_T")Address=Request("Customer_A")ProductID=Request("Customer_P")ProductName=Request("Customer_PN")Quatity=Request("Cust

一个简单网上书城的例子(七)!

<!--#include file="Util.asp" --> <%Head="您尚未选购任何物品!" DbPath = SERVER.MapPath("ShopBag.mdb")Set conn = Server.CreateObject("ADODB.Connection")conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=&quo

一个简单网上书城的例子(八)!

clear.asp:清空所购全部物品! <!--#include file="Util.asp" --> <%Head="您放入购物袋的物品已全数退回!" DbPath = SERVER.MapPath("ShopBag.mdb")Set conn = Server.CreateObject("ADODB.Connection")conn.open "driver={Microsoft Access

用java实现一个简单的序列化的例子

package test; import java.io.*; public class Test implements Serializable{ int i=0; //不让变量j序列化 transient int j=0; public static void main(String[] args) { Test test=new Test(); test.i=3; test.j=7; System.out.println(test.i); System.out.println(test.j

一个简单的Ruby可逆加密解密类_ruby专题

实现代码: 复制代码 代码如下: class Des    require 'openssl'    require 'base64'    ALG = 'DES-EDE3-CBC'    KEY = "mZ4Wjs6L"    DES_KEY = "nZ4wJs6L"    #加密    def encode(str)      des = OpenSSL::Cipher::Cipher.new(ALG)      des.pkcs5_keyivgen(KEY,