japl/tests/japl/fib.jpl

34 lines
311 B
Plaintext

//[Test: fibonacci]
//[source: raw]
fun fib(n) {
if (n < 2)
return n;
return fib(n-2) + fib(n-1);
}
print(fib(1));
print(fib(2));
print(fib(3));
print(fib(4));
print(fib(5));
print(fib(6));
print(fib(7));
print(fib(8));
print(fib(9));
//[end]
/*
[stdout]
1
1
2
3
5
8
13
21
34
[end]
*/
//[end]