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

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 source

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;
  }
}