Kantalukumuunnos.jl

#Lukujärjestelmän muunnos 10-kantaisesta n-kantaiseen, n<=38
# Juhani Kaukoranta 1.1.2021
A = ""
function Muunnos(a,n)
    nro="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    # merkistönumerot, vastaavat arvoja 0 - 37
    x = a
    temp = div(x,n)
    if temp == 0 # viimeinen, laskenta päättyy
        if x < 38
            A = nro[x+1]
        else
            A = string(x)
        end
        return A
    end
    if x-temp*n < 38
        A = nro[x-temp*n+1]
    else
        A = string(x-temp*n)
    end
    x = temp
    A = Muunnos(x,n)*A
end