m@main=readLn>>=print.f>>m f 1=1 f n=maximum[f x|x<-[1..n-1],mod n x<1]+sum[read[a]|a<-show n]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page