langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Fibonacci-sequence/REALbasic/fibonacci-sequence.realbasic
+++ b/Task/Fibonacci-sequence/REALbasic/fibonacci-sequence.realbasic
@ -0,0 +1,14 @@
+Function fibo(n as integer) As UInt64
+
+  dim noOne as UInt64 = 1
+  dim noTwo as UInt64 = 1	
+  dim sum As UInt64
+
+  for i as integer = 1 to n
+      sum = noOne + noTwo
+      noTwo = noOne
+      noOne = sum
+  Next
+
+  Return noOne
+End Function