Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

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

by choroba (Cardinal)
on Apr 17, 2010 at 15:22 UTC ( [id://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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://835256]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2024-03-28 16:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found