Jordan-Pólya numbers: Difference between revisions

m
→‎{{header|Julia}}: revise aupto per phix, etc code
(→‎{{header|Nim}}: append ==={{header|Free pascal}}===)
m (→‎{{header|Julia}}: revise aupto per phix, etc code)
Line 233:
 
=={{header|Julia}}==
<syntaxhighlight lang="julia">""" Thefunction aupto(limit::T) function is taken from the Python codewhere atT oeis.org/A001013<: """Integer
res = map(factorial, T(1):T(18))
function aupto(lim::T, mx::T = zero(T)) where T <: Integer
limk <= 2 && return [one(T)]
v,while tk =< [onelength(T)], one(Tres)
mx == 0 && (mxrk = lim)res[k]
for kj in= 2:mxlength(res)
t * kl = kres[j] * rk
t kl > limlimit && break
append!(v, [t * rest forwhile restkl in<= aupto(limlimit ÷&& t,kl t)])∉ res
push!(res, kl)
kl *= rk
end
end
k += 1
end
return unique(sort!(v(sizeof(T) > sizeof(Int) ? T : Int).(res))[begin+1:end]
end
 
4,102

edits