Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: A less extreme change..

by dragonchild (Archbishop)
on Nov 24, 2003 at 14:44 UTC ( [id://309542]=note: print w/replies, xml ) Need Help??


in reply to A less extreme change..
in thread how can I speed up this perl??

Immediately, what seems to be a bug comes out.
if ( $genomepair eq 'aa' ) { ++$tt; }

If it's 'aa', why increment $tt? If it's not a bug, then it needs a comment explaining why it doesn't follow the pattern.

Continuing with the refactoring, once you have it in the second form listed, you can easily move to a hash.

my %pair_count; my $genomepair = $genome[$i] . $genome[$i+1]; $pair_count{$genomepair}++;

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

... strings and arrays will suffice. As they are easily available as native data types in any sane language, ... - blokhead, speaking on evolutionary algorithms

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (5)
As of 2024-03-29 11:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found