tak julia script ver

jtest.jl

module M

global c = 0

function tak(x::Int,y::Int,z::Int)::Int
    global c += 1
    if x <= y
        y
    else tak(tak(x-1,y,z), tak(y-1,z,x), tak(z-1,x,y))
    end
end

function julia_main()
    t = tak(12,6,0)
    println("tak(12,6,0) = $t")
    println("c = $c")
    return 0
end
julia_main()
end

test.jl

module M
global c = 0

function tak(x::Int,y::Int,z::Int)::Int
    global c += 1
    if x <= y
        y
    else tak(tak(x-1,y,z), tak(y-1,z,x), tak(z-1,x,y))
    end
end

Base.@ccallable function julia_main(ARGS::Vector{String})::Cint
    t = tak(12,6,0)
    println("tak(12,6,0) = $t")
    println("c = $c")
    return 0
end
end