afl-material: progs/fact.rec@70198792c2aa (annotated)

224 70198792c2aa added Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	1	def fact(n) = if n == 0 then 1 else n * fact(n - 1);
70198792c2aa added Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	2
70198792c2aa added Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	3	def facT(n, acc) = if n == 0 then acc else facT(n - 1, n * acc);
70198792c2aa added Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	4
70198792c2aa added Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	5	facT(15, 1)
70198792c2aa added Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	6
70198792c2aa added Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	7	//fact(15)
70198792c2aa added Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	8

author	Christian Urban <christian dot urban at kcl dot ac dot uk>
	Thu, 05 Dec 2013 10:29:35 +0000
changeset 224	70198792c2aa
permissions	-rw-r--r--