8 lines
153 B
Smalltalk
8 lines
153 B
Smalltalk
|
Integer >> fibBinetFloatE
|
||
|
|
|phi rPhi|
|
||
|
|
|
||
|
|
phi := FloatE phi.
|
||
|
|
rPhi := 1 / phi.
|
||
|
|
|
||
|
|
^ (1 / 5 sqrt) * ((phi raisedTo:self) - (rPhi raisedTo:self))
|