Rosetta Code

Combinations with repetitions/Square digit chain: Difference between revisions

Page Discussion

Combinations with repetitions/Square digit chain (view source)

Revision as of 21:48, 4 June 2019

7 bytes added ,  5 years ago
m
→‎{{header|Julia}}
Line 230:
onecount, eightyninecount = 0, 0
for combo in with_replacement_combinations(items, numdigits)
if allany(x -> x =!= 0, combo)
continuepcount = Int(factorial(length(combo)) /
prod(y -> factorial(sum(x -> x == y, combo)), unique(combo)))
end
pcount = Int if iterate(factorial(lengthsum(combo)) /== 89
prod(y -> factorial(sum(x -> xeightyninecount +== y, combo)), unique(combo)))pcount
if iterate(sum(combo)) == 89 else
eightyninecount onecount += pcount
else end
onecount += pcount
end
end
Wherrera
4,105

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/250315"