solutions/cw2/collatz2.while
author Christian Urban <christian.urban@kcl.ac.uk>
Sun, 01 Oct 2023 12:04:51 +0100
changeset 933 62c38f4b1dae
parent 894 02ef5c3abc51
permissions -rw-r--r--
texupdate

// 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
}