kurz/tests/recursion.qbl
2022-12-18 04:05:50 +01:00

17 lines
208 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 println