japl/tests/japl/fib.jpl

30 lines
295 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]