afl-material: progs/fib.while@1446bc47a294 (annotated)

207 f824e1331fc6 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 182 diff changeset	1	/* Fibonacci Program
215 828303e8e4af updated slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 211 diff changeset	2	input: n */
828303e8e4af updated slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 211 diff changeset	3
208 bd5a8a6b3871 added Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 207 diff changeset	4	write "Fib";
272 1446bc47a294 updated Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 215 diff changeset	5	read n;
207 f824e1331fc6 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 182 diff changeset	6	minus1 := 0;
f824e1331fc6 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 182 diff changeset	7	minus2 := 1;
80 191daa3ee29e tuned Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 76 diff changeset	8	while n > 0 do {
207 f824e1331fc6 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 182 diff changeset	9	temp := minus2;
f824e1331fc6 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 182 diff changeset	10	minus2 := minus1 + minus2;
f824e1331fc6 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 182 diff changeset	11	minus1 := temp;
f824e1331fc6 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 182 diff changeset	12	n := n - 1
75 898c25a4e399 tuned Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 73 diff changeset	13	};
207 f824e1331fc6 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 182 diff changeset	14	write "Result";
f824e1331fc6 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 182 diff changeset	15	write minus2
75 898c25a4e399 tuned Christian Urban <christian dot urban at kcl dot ac dot uk> parents: 73 diff changeset	16

author	Christian Urban <christian dot urban at kcl dot ac dot uk>
	Sun, 12 Oct 2014 19:39:55 +0100
changeset 272	1446bc47a294
parent 215	828303e8e4af
child 275	618c7640cf66
permissions	-rw-r--r--