A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Fibonacci-sequence/Liberty-BASIC/fibonacci-sequence.liberty
+++ b/Task/Fibonacci-sequence/Liberty-BASIC/fibonacci-sequence.liberty
@ -0,0 +1,22 @@
+for i = 0 to 15
+    print fiboR(i),fiboI(i)
+next i
+
+function fiboR(n)
+    if n <= 1 then
+        fiboR = n
+    else
+        fiboR = fiboR(n-1) + fiboR(n-2)
+    end if
+end function
+
+function fiboI(n)
+    a = 0
+    b = 1
+    for i = 1 to n
+        temp = a + b
+        a = b
+        b = temp
+    next i
+    fiboI = a
+end function