Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

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

by choroba (Bishop)
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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2017-10-22 17:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (274 votes). Check out past polls.

    Notices?