Select Code to Download

my $result = 0;
my $temp=0;
...
   $result=$result + $value{ $letter }* $factor{ $letter };
#print "$result\n";
};

my $result = 1;
for my $letter (@letters) {
   $result *= $value{ $letter } * $factor{ $letter };
};

#!/usr/bin/perl

...
    my $result = calc( $_ );
    print "result: $result\n\n";
}

string: 2A
result: 1.125
...

string: BC
result: 2.40625

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)