Data commit

Task/Leonardo-numbers/FutureBasic/leonardo-numbers.basic

@@ -0,0 +1,32 @@
+local fn LeoFiboNumbers( number as long, l0 as long, l1 as long, sum as long ) as CFArrayRef
+  long i, tmp
+  CFMutableArrayRef mutArr = fn MutableArrayWithCapacity(0)
+
+  for i = 1 to number
+    if i = 1
+      MutableArrayAddObject( mutArr, fn StringWithFormat( @"%ld", l0 ) )
+    else
+      if i = 2
+        MutableArrayAddObject( mutArr, fn StringWithFormat( @"%ld", l1 ) )
+      else
+        MutableArrayAddObject( mutArr, fn StringWithFormat( @"%ld", l0 + l1 + sum ) )
+        tmp = L0 : l0  = l1 : l1  = tmp + l1 + sum
+      end if
+    end if
+  next
+end fn = mutArr
+
+void local fn CompareResults( number as long )
+  CFArrayRef leonardoArr  = fn LeoFiboNumbers( number, 1, 1, 1 )
+  CFArrayRef fibonacciArr = fn LeoFiboNumbers( number, 0, 1, 0 )
+  long           i, count = fn ArrayCount( leonardoArr )
+
+  printf @"First %ld numbers of:\n%8s%11s", number, fn StringUTF8String( @"Leonardo" ), fn StringUTF8String( @"Fibonacci" )
+  for i = 0 to count - 1
+    printf @"%8s%11s", fn StringUTF8String( leonardoArr[i] ), fn StringUTF8String( fibonacciArr[i] )
+  next
+end fn
+
+fn CompareResults( 35 )
+
+HandleEvents