solutions/cw2/collatz.while
changeset 894 02ef5c3abc51
parent 864 b5b1bc0a603b
child 920 7af2eea19646
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/solutions/cw2/collatz.while	Fri Nov 04 12:07:40 2022 +0000
@@ -0,0 +1,8 @@
+write "Input a number ";
+read n;
+while n > 1 do {
+  if n % 2 == 0 
+  then n := n / 2 
+  else n := 3 * n + 1;
+};
+write "Yes\n";