f(f(x)) ==> -x な、実数を返す f を定義せよ…クイズ　３

Squeak Smalltalk


趣を変えて、歪 の PostScript による変態的な手法と大枠で同じ方針による。

Number >> f
   | method nn |
   method := thisContext method.
   nn := method literals size.
   method literalAt: nn put: (
      (method literalAt: nn) == #negated
         ifTrue: [#yourself] ifFalse: [#negated]).
   ^ self negated
#(1.2 0 -1.2) collect: [:real | real f f]
=> #(-1.2 0 1.2)