Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Re: Re: Printing combinations, code review request

by integral (Hermit)
on Apr 26, 2003 at 15:42 UTC ( [id://253373]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    push @$list, $$items[$i];
    comb_integral($items, $group - 1, $list, $i + 1);
    pop @$list;
    
  2. or download this
    comb_integral($items, $group - 1, [@$list, $$items[$i]], $i + 1);
    
  3. or download this
    #!/usr/bin/perl
    use strict;
    ...
        return @returns;
      }
    }
    
  4. or download this
    push @returns, my @combs = comb_integral($items, $group - 1, $i + 1);
    unshift @$_, $$items[$i] for @combs;
    
  5. or download this
    Benchmark: running SparkyG, demerphq, integral2, intgrl2_f, intgrl_np,
    + intgrl_pp, iterative, each for at least 1 CPU seconds...
       SparkyG:  1 wallclock secs ( 1.06 usr +  0.01 sys =  1.07 CPU) @ 15
    +70.09/s (n=1680)
    ...
    intgrl_pp 3199/s    104%      40%       10%        3%        --       
    +-7%      -25%
    integral2 3429/s    118%      50%       18%       10%        7%       
    + --      -20%
    iterative 4266/s    172%      87%       47%       37%       33%       
    +24%        --
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (2)
As of 2024-04-24 23:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found