8 lines
146 B
Smalltalk
8 lines
146 B
Smalltalk
|
Integer >> fibBinet
|
||
|
|
|phi rPhi|
|
||
|
|
|
||
|
|
phi := Float phi.
|
||
|
|
rPhi := 1 / phi.
|
||
|
|
|
||
|
|
^ (1 / 5 sqrt) * ((phi raisedTo:self) - (rPhi raisedTo:self))
|