04-06-2015, 11:19 AM
Two programmes:
FIBO takes non-negative integer input N & returns the Nth Fibonacci number in Ans, exact for N < 60.
FIBO
ROUND(((1+√5)/2)^Ans/√5,0)-(Ans>55)-(Ans>57)*2-(Ans>58)*2:
FIBO? takes non-negative integer input N & returns 1 if N is a Fibonacci number, else 0, correct for N < 447214.
FIBO?
5*Ans^2+4:
IFTE(FRAC(√Ans),IFTE(FRAC(√(Ans-8)),0,1),1):
FIBO takes non-negative integer input N & returns the Nth Fibonacci number in Ans, exact for N < 60.
FIBO
ROUND(((1+√5)/2)^Ans/√5,0)-(Ans>55)-(Ans>57)*2-(Ans>58)*2:
FIBO? takes non-negative integer input N & returns 1 if N is a Fibonacci number, else 0, correct for N < 447214.
FIBO?
5*Ans^2+4:
IFTE(FRAC(√Ans),IFTE(FRAC(√(Ans-8)),0,1),1):