Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: code optimization

by patcat88 (Deacon)
on Nov 03, 2011 at 20:52 UTC ( #935771=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    # 17:                 $minimumAmount = $1 / $2;
    14             <;> nextstate(main 941 pmonks.pl:17) v:*,&,$
    ...
    1d             <#> gvsv[*2] s
    1e             <0> padsv[$weight:940,947] sRM*
    1f             <2> sassign vKS/2
    
  2. or download this
    20     <0> pushmark s
    21     <0> padsv[$div:961,963] l
    ...
    26     <0> padsv[$gamount:961,963] lRM*
    27     <0> padsv[$gweight:961,963] lRM*
    28     <2> aassign[t27] vKS
    
  3. or download this
    # 69:     my $input = ${$_[0]};
    1  <;> nextstate(main 970 pmonks.pl:69) v:*,&,$
    ...
    3  <1> rv2sv sK/3
    4  <0> padsv[$input:970,973] sRM*/LVINTRO
    5  <2> sassign vKS/2
    
  4. or download this
    # 59:     my $input = ${(shift)};
    1  <;> nextstate(main 965 pmonks.pl:59) v:*,&,$
    ...
    5  <1> rv2sv sK/3
    6  <0> padsv[$input:965,968] sRM*/LVINTRO
    7  <2> sassign vKS/2
    
  5. or download this
    C:\Documents and Settings\Owner\Desktop>perl pmonks.pl
    badarivu2 0.921875
    ...
    arivu 13.078125
    
    C:\Documents and Settings\Owner\Desktop>
    
  6. or download this
    #!/usr/bin/perl
    
    ...
    #print arivu \$input;
    #print choroba \$input;
    #print choroba2 \$input;
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (8)
As of 2014-12-22 07:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (112 votes), past polls