solution/cw2/collatz2.while
changeset 894 02ef5c3abc51
parent 893 54a483a33763
child 895 2f5a87ecdc81
--- a/solution/cw2/collatz2.while	Fri Oct 28 09:08:13 2022 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,27 +0,0 @@
-// Collatz series
-//
-// needs writing of strings and numbers; comments
-
-bnd := 1;
-while bnd < 101 do {
-  write bnd;
-  write ": ";
-  n := bnd;
-  cnt := 0;
-
-  while n > 1 do {
-    write n;
-    write ",";
-    
-    if n % 2 == 0 
-    then n := n / 2 
-    else n := 3 * n+1;
-
-    cnt := cnt + 1
-  };
-
-  write " => ";
-  write cnt;
-  write "\n";
-  bnd := bnd + 1
-}
\ No newline at end of file