Mercurial > hg > truffle

diff truffle/com.oracle.truffle.sl.test/src/tests/Fibonacci.sl @ 22201:df6a1647cfb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move .sl testcases/outputs (resources) into projects src directory
author Stefan Anzinger <stefan.anzinger@oracle.com>
date Tue, 29 Sep 2015 15:01:34 +0200
parents truffle/com.oracle.truffle.sl.test/tests/Fibonacci.sl@9c8c0937da41
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/truffle/com.oracle.truffle.sl.test/src/tests/Fibonacci.sl	Tue Sep 29 15:01:34 2015 +0200
@@ -0,0 +1,21 @@
+function fib(num) { 
+  if (num < 1) {return 0;}
+  n1 = 0;
+  n2 = 1;
+  i = 1;
+  while (i < num) {
+    next = n2 + n1;
+    n1 = n2;
+    n2 = next;
+    i = i + 1;
+  }
+  return n2;
+}
+
+function main() {  
+  i = 1;
+  while (i <= 10) {
+    println(i + ": " + fib(i));
+    i = i + 1;
+  }
+}