Select Code to Download

sub sdtt() {
#sum of digits on Text number
...
        map { $t+= $_ } split //, sprintf("%d",$_[0]);
        return $t;
}

c:\@Work\Perl\monks>perl -wMstrict -le
"use List::Util qw(sum);
...
sum of digits of 321023 == 11
sum of digits of 321 == 6
sum of digits of 023 == 5