Factorions: Difference between revisions

Content added Content deleted
m (→‎{{header|Phix}}: minor performance improvement)
Line 336: Line 336:
for i=1 to 1499999 do
for i=1 to 1499999 do
atom total = 0, j = i, d
atom total = 0, j = i, d
while j>0 and total<i do
while j>0 and total<=i do
d = remainder(j,b)
d = remainder(j,b)
total += fact[d+1]
total += fact[d+1]