DecToMaya.jl

function DecToMaya(n)
# 10-jarjestelmän luku n muunnetaan Mayojen 20-järjestelmään
# tulostus Mayojen numeromerkkeinä ylhäältä alas klassiseen tyyliin
# Juhani Kaukoranta 16.2.2022
    A = [] # vektori A kerää tulostettavat merkit
    x = n
    nbase = 20 # Mayojen kantalukujärjestelmä
    temp = div(x,nbase)
    while temp > 0
        if x-temp*nbase < 20
            newnum =Char(119520+x-temp*nbase)
        end
        #A = A*newnum
        #A = A*" "
        push!(A,newnum)
        x = temp
        temp = div(x,nbase)
        if temp == 0 # viimeinen, uusi kierros
            if x < 20
                newnum = Char(119520+x)
            end
            #A=A*" "
            #A = A*newnum
            push!(A,newnum)
            return reverse(A)
        end
    end
end
# laskenta ja tulostusesimerkki
n = 10*20^3+4*20^2+12*20+6;
x =DecToMaya(n);
println("10-järjestelmän luku ",n, " Maya-numeroina ylhäältä alas:");
for i=1:length(x)
    println(x[i])
end
println("ja vierekkäin, suurin potenssi ensin:")
for i= 1:length(x)
    print(x[i]," ",)
end