Mercurial > hg > truffle
view graal/com.oracle.truffle.sl.test/tests/Fibonacci.sl @ 21787:2766fee1809a
Use the fact that a range checked array index is not negative to avoid sign-extension of the index register.
author | Roland Schatz <roland.schatz@oracle.com> |
---|---|
date | Mon, 08 Jun 2015 19:32:59 +0200 |
parents | ff3136ecb5a7 |
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; } }