Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Bin packing problem variation repost (see[834245])

by choroba (Abbot)
on Apr 17, 2010 at 15:22 UTC ( #835256=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
      print join',',sort num @{$groups{$gid}{list}};
      print "]\n";
    }
    
  2. or download this
    840 [103,118,130,143,158,188]
    840 [88,261,154,123,116,98]
    ...
    862 [198,150,126,132,135,121]
    863 [105,121,132,145,162,198]
    863 [183,109,172,148,122,129]
    
  3. or download this
      ($minsum,$maxsum) = ($max,$min);
      foreach my $gid (keys %groups){
    ...
          $largest_gid = $gid;
        }
      }
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2014-09-20 03:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (152 votes), past polls