kurz/tests/recursion.qbl

//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
Improved the test system 2022-12-18 04:05:50 +01:00			`//valid,10946`
			`//:END:`

Add testing functionality and add error reporting 2022-12-15 21:53:01 +01:00			`function int int int int => int fibonacci`
Add and update tests 2022-12-14 11:46:47 +01:00			`{`
Add testing functionality and add error reporting 2022-12-15 21:53:01 +01:00			`dup 0 == req req req req`
			`if`
Add and update tests 2022-12-14 11:46:47 +01:00			`{`
Add testing functionality and add error reporting 2022-12-15 21:53:01 +01:00			`req deq deq deq`
Add and update tests 2022-12-14 11:46:47 +01:00			`}`
			`else`
			`{`
Add testing functionality and add error reporting 2022-12-15 21:53:01 +01:00			`dup + req 1 req swp - req req req fibonacci`
Add and update tests 2022-12-14 11:46:47 +01:00			`}`
			`}`

Remove the "any" type 2022-12-31 16:09:55 +01:00			`20 0 1 0 fibonacci intToStr println`