Ruby實現stream具體方法介紹

作者：佚名 2009-12-16 15:04:26

Ruby實現stream的方法對于我們剛剛學習Ruby語言的人來說是比較容易掌握的一個方法。那么我們就一起來看看這方面的相關知識。

Ruby語言在編程界可以說是一個后起之秀，出現的目的就是幫助編程人員更簡便靈活的去編寫代碼程序，完成自己的功能需求。比如在Ruby實現stream方面。#t#

按照sicp，首要的是兩個函數：delay和force：

def mem_proc(exp)
alread_run=false
result=false
lambda{
if !alread_run
result=exp.call
alread_run=true
result
else
result
end
}
end
def force(delayed_object)
delayed_object.call
end
def delay(exp)
mem_proc(lambda{exp})
end

delay函數返回延時對象，就是對于未來某個時間求值表達式的承諾；force函數以延時對象為參數，進行相應的求值工作，這里的mem_proc用于記憶已經求值過的表達式。Ruby實現stream的constructor和selector函數：

def cons_stream(a,b)  
return a,delay(b)  
end  
def stream_car(s)  
s[0]  
end  
def stream_cdr(s)  
force(s[1])  
end  
def stream_null?(s)  
s.nil? or s==[]  
end

用Ruby中的數組充當“粘合劑”，stream_car直接返回***個元素，而stream_cdr需要用force求值表達式，履行承諾。另外，將空數組[]作為the-empty-stream。再定義幾個高階函數，map和foreach，其他如filter與此類似：

def stream_enumerate_interval(low,high)  
　if low>high  
　　return []  
　else  
　　cons_stream(low,stream_enumerate
_interval(low.succ,high))　　  
　end  
end  
def stream_ref(s,n)  
　if n==0  
　　stream_car(s)  
　else  
　　stream_ref(stream_cdr(s),(n-1))　　  
end  
end  
def stream_map(proc,s)  
if stream_null?(s)  
[]  
else  
cons_stream(proc.call(stream_car(s))
,stream_map(proc,(stream_cdr(s))))　　  
end  
end  
def stream_for_each(proc,s)  
if stream_null?(s)  
:done  
else  
proc.call(stream_car(s))  
stream_for_each(proc,stream_cdr(s))　　  
end  
end  
def display_stream(s)  
stream_for_each(lambda{|item| puts item},s)  
end  
def stream_filter(pred,s)  
if stream_null?(s)  
[]  
elsif pred.call(stream_car(s))  
cons_stream(stream_car(s),stream_
filter(pred,stream_cdr(s)))  
else  
stream_filter(pred,stream_cdr(s))　  
end  
end

***，看下Ruby實現stream例子：

puts "s:"  
s=stream_enumerate_interval(1,5)  
display_stream(s)  
puts "odd_s:"  
odd_s=stream_filter
(lambda{|x| x%2==1},s)  
display_stream(odd_s)  
puts "ss:"  
ss=stream_map(lambda{|x|x*x},s)  
display_stream(ss)

責任編輯：曹凱來源： ddvip.com

Ruby實現stream