afl-material: progs/fact.fun@2d91b2107656 (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 <urbanc@in.tum.de>
	Sun, 28 Jul 2019 17:29:53 +0100
changeset 626	2d91b2107656
parent 224	progs/fact.rec@70198792c2aa
child 655	3d04ee04966d
permissions	-rw-r--r--