Data commit

Task/Fibonacci-sequence/FutureBasic/fibonacci-sequence-2.basic

@@ -0,0 +1,18 @@
+local fn Fibonacci( n as NSInteger ) as NSInteger
+NSInteger result
+if n < 2 then result = n : exit fn
+result = fn Fibonacci( n-1 ) + fn Fibonacci( n-2 )
+end fn = result
+
+window 1
+
+NSInteger i
+CFTimeInterval t
+
+t = fn CACurrentMediaTime
+for i = 0 to 40
+print i;@".\t";fn Fibonacci(i)
+next
+print : printf @"Compute time: %.3f ms",(fn CACurrentMediaTime-t)*1000
+
+HandleEvents