desimaalistaketjumurtoluku.jl

# Desimaaliluku ketjumurtoluvuksi
# Juhani Kaukoranta 3.1.2023
function ketjumurto(desimaaliluku,n)
    #laskee desimaaliluvun ketjumurtoluvuksi
    setprecision(BigFloat,1000)
    r = big(desimaaliluku) # 1000-bittinen tarkkuus
    ketju = []
    for k = 1 : n
        i = Int(floor(r))
        push!(ketju,i) # numero lisätty ketjuun
        if abs(r - i) < 1e-6
            break # ketju päättyy
        end
        r = 1/(r-i)
        if (abs(round(r)-r)) <1e-6
            r = round(r)
        end
    end
    println(ketju)
end