Another update from ingydotnet^djgoku

This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions

View file

@ -0,0 +1,18 @@
function multifact{T<:Integer,U<:Integer}(n::T, k::U)
-1<n && 0<k || throw(DomainError())
1 < k || return factorial(n)
r = one(T)
for i in n:-k:2
r *= i
end
return r
end
khi = 5
nhi = 10
println("Showing multifactorial for n in [1,", nhi, "] and k in [1,", khi, "].")
for k = 1:khi
a = Int64[multifact(i, k) for i in 1:nhi]
lab = "n"*"!"^k
println(@sprintf(" %-6s => ", lab), a)
end