Fibonacci sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 5,374: / Line 5,374: @@
 <syntaxhighlight lang="text">
-proc fib n . res .
+func fib n .
-  if n < 2
+   if n < 2
-    res = n
+      return n
-  .
+   .
-  prev = 0
+   prev = 0
-  val = 1
+   val = 1
-  for _ = 0 to n - 2
+   for i = 2 to n
-    res = prev + val
+      h = prev + val
-    prev = val
+      prev = val
-    val = res
+      val = h
-  .
+   .
+   return val
 .
-call fib 36 r
+print fib 36
-print r
 </syntaxhighlight>
@@ Line 5,393: / Line 5,393: @@
 <syntaxhighlight lang="text">
-proc fib n . res .
+func fib n .
-  if n < 2
+   if n < 2
-    res = n
+      return n
-  else
+   .
-    call fib n - 1 a
+   return fib (n - 2) + fib (n - 1)
-    call fib n - 2 b
-    res = a + b
-  .
 .
-call fib 36 r
+print fib 36
-print r
 </syntaxhighlight>