cwtests/cw03/collatz2.while
author Christian Urban <christian.urban@kcl.ac.uk>
Tue, 30 Nov 2021 10:16:47 +0000
changeset 852 8706b846a3e0
parent 836 a3418ee8c404
permissions -rw-r--r--
updated

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