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