Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Speed up perl code

by Anonymous Monk
on Sep 21, 2012 at 07:18 UTC ( #994827=note: print w/replies, xml ) Need Help??

in reply to Speed up perl code

You're wrote  decode( 'cp1252' entirely too many times (131 versus 24 unique, that is 107 duplicates )

Multiply that by the number of iterations through the 42 odd loops, and no wonder its slow

Also, there are way too many levels of indentation -- longest is 13 deep -- you should turn each for loop into a function call , really

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2016-10-24 09:14 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (304 votes). Check out past polls.