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