diff -r d59bcff69998 -r b5b1bc0a603b solution/cw2/collatz2.while --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/solution/cw2/collatz2.while Wed Dec 15 19:00:01 2021 +0000 @@ -0,0 +1,27 @@ +// 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