[tiger.ml.git] / compiler / testcases / test21.tig

/* error : procedure returns value  and procedure is used in arexpr */
let

/* calculate n! */
function nfactor(n: int) =
		if  n = 0 
			then 1
			else n * nfactor(n-1)

in
	nfactor(10)
end
Commit	Line	Data
38ffcb1f SK	1	/* error : procedure returns value and procedure is used in arexpr */
	2	let
	3
	4	/* calculate n! */
	5	function nfactor(n: int) =
	6	if n = 0
	7	then 1
	8	else n * nfactor(n-1)
	9
	10	in
	11	nfactor(10)
	12	end
	13