あー…

http://d.hatena.ne.jp/sumim/20051009/p1

selfがいるんですね…今日のお昼に同じことやってできなくて一人泣いていました。これは self じゃないならレシーバは何になってるんだろう…と思ったけど調べ切れず。

悔しいからソースぺたっと。

fib_maker := block(f, block(x, if (x <= 1, 1, f(x-1) + f(x-2))))
fix := block(G, G(block(x, fix(self getSlot("G")) performOn(x))))
fib := fix(getSlot("fib_maker"))
write(fib(5), "\n")
なにかあれば下記メールアドレスへ。
shinichiro.hamaji _at_ gmail.com
shinichiro.h