Kantalukumuunnos_nonrecursive.jl

#Lukujärjestelmän muunnos 10-kantaisesta n-kantaiseen, 2<=n<=62
# Ei-rekursiivinen versio Julia-kielellä
# Juhani Kaukoranta 16.4.2021
# tulosta esim println(Muunnos(79,16))
#
function Muunnos(a,n)
# a muunnettava 10-jarjestelmän luku, n kohdekantaluku
    nro="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    # merkistönumerot, vastaavat arvoja 0 - 62
    A ="" # merkkijonoon A kerätään uuden kantaluvun numerot
    x = a
    temp = div(x,n)
    while temp > 0
        if x-temp*n < 62
            newnum = nro[x-temp*n+1]
        else
            newnum = string(x-temp*n)
        end
        A = newnum*A
        x = temp
        temp = div(x,n)
        if temp == 0 # viimeinen, uusi kierros
            if x < 62
                newnum = nro[x+1]
            else
                newnum = string(x)
            end
            A = newnum*A
            return A
        end
    end
end