RosettaCodeData/Task/Fibonacci-sequence/Stata/fibonacci-sequence-3.stata

13 lines
363 B
Text
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
. mata
: function fib(n) {
return((((1+sqrt(5))/2):^n-((1-sqrt(5))/2):^n)/sqrt(5))
}
: fib(0..10)
1 2 3 4 5 6 7 8 9 10 11
+--------------------------------------------------------+
1 | 0 1 1 2 3 5 8 13 21 34 55 |
+--------------------------------------------------------+
: end