[ruby-list:28375] Re: argument to instance

< ^ > P N |<>| ^ _>< --- | ~ ...Help
懇枆匹允﹝
葆 耨域牬迋﹜豢項憎肣か丹仍介中引允﹝
"Ruby 皿伕弘仿立件弘じ杹" 反坌井曰支允仁化﹜隻厶仄化中引允﹝
凶分 DelayedList 及赭反咥荸允月及卞塑洢仄引仄凶﹝
(幻井卞反杽鎖及 instance_eval)

ML手賡艘樊匹卅井卅井蕞啦及鰻歹月踏五杅互匹五引六氏互,貲荸今木卅中迋卞
匹五月分仃鏜啦仄化踏仁仇午卞仄引允﹝ 

  In mail "[ruby-list:28342] Re: argument to instance_eval block"
    "Shin-ichiro HARA" <sinara / blade.nagaokaut.ac.jp> wrote

|class Sequence
|
|   include Enumerable
|
|   def initialize( list, &block )
|     @list = list
|     @proc = block
|   end
.....
|Prime = Sequence.new([2,3]){|seq, n|
|   m = seq[n - 1] + 2
|   m += 2 while seq.find{|k|
|     break if k * k > m
|     m % k == 0
|   }
|   m
|}

|Prime.each do |x|
|   p x
|   break if x > 100
|end

仇木反颱及 script 匹 $mod=2 午仄凶手及午呿撙讀卞反⑺元手及分午
奴汁﹜尼﹜鉿﹜﹜‵﹜弗﹜乓﹝＞
break 墊及 100 毛 m 卞庍尹月午啦豭騷曰卞反⑹五引六氏﹝
仇木反譙抰讀卅瑞棻分午閤勻化睡迕仄卅井勻凶歹仃匹允﹝
Prime 及爛聒及卅井匹及 m 反呿侳 dummy(職及庍醒抩午少勾井日卅仃鴗
窒毛銀勻化手中中)庍醒及�卅及卞﹜仇及樺寧反仇及 block 互 mai
n 及
context 匹刉笠今木月凶戶 dummy 卞卅曰引六氏﹝
仇丹中丹樺寧反職匹反濮覆卞銀歹卅中方丹卅庍醒抩毛銀中卅今中午中丹
荸瑁綺反﹜Programming 及湘呿卞�允月(dummy 反 dummy 匹丐諵暀迨壑
中丹啦怗匹)午閤丹及匹熬仃じ木日木引六氏﹝

鎔2婁醒及优邰嶺卞勾中化匹允互﹜曉及 script 卞 慼及方丹卅
奴汁
亙亙亙亙
蜵摷趵嚬槴蜲
  麧爸讞
    蠸鵴懨
    趵嚬槴蜲殉毿佾搣帉鵴饁鞚 鱠鍌門趀毻
  膴膴亙亙亙亙
翴鐓檷 毛馨笛仄化

p (Prime*Power[2])[m]

午支木壬癲螺 error 卞卅曰引允﹝
拑蜃醒昫支菟醒卞銀丹及互潛卅杴讀卅及匹仇木互請侳卅中午銀中坁卞卅曰引
六氏﹝(Cauchy 昫引凶反菟醒午仄化撢醒公及手及毛刓允 Real class 罋秅
化中引允互撢墊簧蘸卞杽鎖互丐曰撢迕讀卅手及反怳分請侳引六氏﹝)
動曉及方丹卅仇午反棉濤讀卞匹允互切扎氏午踏中凶勾手曰匹中凶氏匹允互﹜
踏五杅互鬼井勻凶午�彊仄化中引允﹝允心引六氏匹仄凶﹝

instance_eval 反賡艘樊互銀丹午 渣萵卅方丹卅及匹銀歹卅中仇午卞仄引允﹝

仇及狪反 block 反 block 匹欐允及互憤螺分午閤勻化﹜公及杅芊毛五中④艉
分仃匹﹜冂卞漱勻化中月歹仃匹反卅中及匹(允勻五曰反仄卅中匹允互)鉹𧘇楔
反仇及彶匹蔽曰卞仄凶中午閤中引允﹝

仇木反忐厙分午閤勻化仁木凶諦互域諦手中卅井勻凶及互切斤勻午酸ゴ分勻凶
及匹﹜瘉詨卞銀迕拺毛劑仄分仃:
忙楮醒支未□正楮醒毛煌遙允月午五卞 Bernoulli 醒互优邰卞卅曰引允互﹜(
慼及方丹卞棵簽卞爛聒匹五引允﹝

class Sequence
  def	*(y)
    x=self
    case y
    when Numeric
      Sequence.new([],x,y){"|n,x,y| x[n]*y"}
    else
      Sequence.new([],x,y){"|n,x,y| x[n]*y[n]"}
    end
  end
  def sum(n=0,m=nil,s=nil)
    each(n,m){|x| (break if not yield(x))  if iterator?;if s;s+=x;else s=x end
}
    s
  end
end

Binom =Sequence.new([Sequence.new([1]){"|i| 0"}]){"|n| Sequence.new([1],n){\"|
i,n| Binom[n-1][i-1]+Binom[n-1][i]\"}"}    #き嫩溢醒

require "rational.rb"

Bernoulli =Sequence.new([1,Rational(-1,2)]){"|n| -(Binom[n+1]*Bernoulli).sum(0
,n-1)/(n+1)"}


煌遙反优邰卅凜卞域莢允月分仃卅及匹﹜簧仁允月凶戶及鼎屺互尕优邰卅
仇午手厙鰾匹允﹝

螻祭摯匹卅中拺
def (Dirichlet={}).[](s)
  super || Dirichlet[s]=Sequence.new([1],s){"|n,s| (n+1)**(-s)"}
end
class Sequence
  def DirichletSeries(s)
    self*Dirichlet[s]
  end
end

Moebius=Sequence.new([0,1]){"|n| (p=Prime.prime_factors(n);pu=p.uniq;(p!=pu)? 
0:Sgn2[pu.size])"}
Moebius.DirichletSeriws(s).sum{|x| x.abs > $error} #=1/zeta(s)


瘉詨及拺毛請六壬螻祭摯分仃互杴讀匹反卅中午中丹仇午反﹜踏井卅仁化手
坌井勻化手日尹月分欠丹午中勻凶踏五杅毛漆引匹反仄化中引仄凶﹝允心引
六氏匹仄凶﹝
拑蜃昫及棉及梢遙毛憤苀卞爛聒匹五月方丹卞允月及互杴讀分午中丹仇午毛
反勻五曰踏仁屯五匹仄凶﹝

贏妐撩斪仄引仄凶﹝