- 35 名前：デフォルトの名無しさん mailto:sage [2008/02/08(金) 14:08:19 ]
- ++の話題、Smalltalkスレで聞いたら、同じような力技でしたｗ
アラン・ケイも認めた！Ruby＞＞＞＞＞Smalltalk
pc11.2ch.net/test/read.cgi/tech/1150106090/169
> >>165
> やっつけですが、Squeak Smalltalk で。
>
> Object >> inc
> | sender index |
> sender := thisContext sender.
> index := (sender method at: sender pc - 2) \\ 16 + 1.
> ^sender tempAt: index put: (sender tempAt: index) + 1
>
> | a b before after |
> a:= 1. b := 2.
> before := {a. b}.
> a inc. b inc.
> after := {a. b}.
> ^{before. after} "=> #(#(1 2) #(2 3)) "
|
 |
