RosettaCodeData/Task/Fibonacci-sequence/Maxima/fibonacci-sequence.maxima

9 lines
137 B
Plaintext

/* fib(n) is built-in; here is an implementation */
fib2(n) := (matrix([0, 1], [1, 1])^^n)[1, 2]$
fib2(100)-fib(100);
0
fib2(-10);
-55