Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^2: string functions

by valavanp (Curate)
on Oct 25, 2006 at 10:23 UTC ( #580533=note: print w/replies, xml ) Need Help??

in reply to Re: string functions
in thread string functions

your solution works for 2A2B2C. But for 4AC, ABC,BC it directly prints the string. your solutions.

Replies are listed 'Best First'.
Re^3: string functions
by Hofmator (Curate) on Oct 25, 2006 at 10:40 UTC
    Is this what you want? Sorry, but your speccs are not very clear ...
    2A2B2C = 28.423828125 4AC = 5.315625 ABC = 2.165625 BC = 2.8875

    This was produces by the following code (adapted from holiy's solution):

    use strict; use warnings; my @p = (1.5, 2.5, 3.5 ); my @m = (0.5, 0.55, 0.60); sub calc { my $i = shift || 1; my $idx = ord(shift)-65; return $m[$idx] * ($p[$idx]**$i); } for my $str (qw/2A2B2C 4AC ABC BC/) { my $res = 1; while ($str =~ /(\d)?([A-Z])/g) { $res *= calc($1, $2); } print "$str = $res\n"; }

    -- Hofmator

    Code written by Hofmator and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

    A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://580533]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (7)
As of 2021-01-27 09:43 GMT
Find Nodes?
    Voting Booth?