Programming exercise (RPL/RPN) - Reciprocal Fibonacci Constant

[Gerson W. Barbosa]

Just a long, slow and rather exotic solution:

Code:


« 1. - → n
  « 'Σ(n=0.,n,INV(Σ(k
=0.,IP(n/2.),COMB(n-k
,k))))' EVAL
  »
»

Or, in HP 50g-compatible text:

Code:


%%HP: T(3)A(R)F(.);
\<< 1. - \-> n
  \<< '\GS(n=0.,n,INV(\GS(k=0.,IP(n/2.),COMB(n-k,k))))' EVAL
  \>>
\>>

111 bytes

« 56. RFC » TEVAL --> 3.35988566622, s:30.4553

https://en.wikipedia.org/wiki/Fibonacci_number

Gerson.