afl-material: progs/while-tests/collatz.while@5d3f3a5f2354 (annotated)

147 4725bba8ef26 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	1	write "Input a number ";
4725bba8ef26 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	2	read n;
4725bba8ef26 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	3	while n > 1 do {
4725bba8ef26 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	4	if n % 2 == 0
4725bba8ef26 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	5	then n := n/2
4725bba8ef26 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	6	else n := 3*n+1;
4725bba8ef26 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	7	};
4725bba8ef26 added slides Christian Urban <christian dot urban at kcl dot ac dot uk> parents: diff changeset	8	write "Yes";

author	Christian Urban <christian.urban@kcl.ac.uk>
	Tue, 06 Oct 2020 00:39:34 +0100
changeset 775	5d3f3a5f2354
parent 742	155426396b5f
child 804	614de60d37d6
permissions	-rw-r--r--