solution/cw2/collatz.while
changeset 894 02ef5c3abc51
parent 893 54a483a33763
child 895 2f5a87ecdc81
--- a/solution/cw2/collatz.while	Fri Oct 28 09:08:13 2022 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,8 +0,0 @@
-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";