f(n,r)=fordiv(n,d,d<n&r=max(r,f(d)));r+n%10+n\10-n\100*9 until(,print(f(input)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page