Digital root by egetprep

#! perl -nl\x0d
chomp($a=$_);$c="digital_root($a)=";\x0d
while($a>9){$b=0;for(split//,$a){$b+=$_;}$a=$b;}$c.=$b;\x0d
while(25-length($c)){$c.=" "}print$c;

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page