kurz/tests/recursion.qbl
2022-12-14 11:46:47 +01:00

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