Goodstein Sequence: Difference between revisions
m
→{{header|Phix}}: cut out the middleman, fix a trailing ".0" which had crept in
m (→{{header|Phix}}: cut out the middleman, fix a trailing ".0" which had crept in) |
|||
Line 151:
for i,d in digits(n,b) do
if d then
res += d*round(power(b+1,bump(i-1,b)))
end if
end for
return res
end function
Line 167 ⟶ 160:
sequence res = {n}
while length(res)<maxterms and res[$]!=0 do
res &=
end while
return res
| |||