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