RosettaCodeData/Task/Fibonacci-sequence/PARI-GP/fibonacci-sequence-12.parigp

14 lines
170 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
F=[];
fib(n)={
if(n>#F,
F=concat(F, vector(n-#F));
F[n]=fib(n-1)+fib(n-2)
,
if(n<2,
n
,
if(F[n],F[n],F[n]=fib(n-1)+fib(n-2))
)
);
}