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

/* define a recursive function */
let

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

in
	nfactor(10)
end
Commit	Line	Data
38ffcb1f SK	1	/* define a recursive function */
	2	let
	3
	4	/* calculate n! */
	5	function nfactor(n: int): int =
	6	if n = 0
	7	then 1
	8	else n * nfactor(n-1)
	9
	10	in
	11	nfactor(10)
	12	end
	13