kurz/tests/recursion.qbl

13 lines
131 B
Plaintext

function int int int => int fibonacci
{
dup if
{
req deq deq
}
else
{
1 dup + - swp fibonacci
}
}
20 1 0 fibonacci print