kurz/tests/recursion.qbl

14 lines
183 B
Plaintext

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