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