Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: dividing numbers

by Not_a_Number (Parson)
on Sep 20, 2011 at 18:49 UTC ( #926999=note: print w/replies, xml ) Need Help??

in reply to dividing numbers

Well, just to show the Power of Perl, you could replace the entire contents of your foreach(my $protein=$seq->seq){ loop with:

my %count; $count{$_}++ for map uc, split '', $protein; for ( 'A' .. 'Z' ) { say RESULT "$_: ", $count{$_} / length $protein if $count{$_}; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://926999]
[Eily]: Hi monks o/
[choroba]: 3 PM in Vietnam, BTW
Discipulus maybe a wrong impression..
[karlgoethebier]: Discipulus: Workshops are for weenies ;-)
[Discipulus]: here 43C high umidity, tiger mosquitos, violence in the street.. everywhere is vietnam
[karlgoethebier]: OK, i'm socially unacceptable
[karlgoethebier]: Discipulus: Were the hell are you today?
[Discipulus]: ..or suitable for the presidence ;=)
[Discipulus]: at Caput Mundi
[marto]: choroba, have you moved to Vietnam or just there for a while?

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (11)
As of 2017-06-27 08:14 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (600 votes). Check out past polls.