#! 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