kurz/tests/recursion.qbl

17 lines
217 B
Plaintext

//valid,10946
//:END:
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 intToStr println