I posted a thread the other day and I didn't include any code. What I'm trying to do is: while the ideal state is still better than our current state, exchange 1 item for a different item in a leftovers array. So, the firs thing to do is check if the item to exchange fits, then check if it is a better $current_best. Right now I'm just trying to drop by order, pick first, loop through replacing the remaining items, then go back to the main loop change to second item. If state gets 'better' then the state is kept and looped through with that state. When the ideal state is met, it should stop.

This is the code I've started to write, it doesn't work and isn't done in Perl fashion...

@solution has the current set of items, @leftovers has the possible items that aren't inside @solution 

while($ideal_state > $current_best)
{    my $coun = 0;

    for(my $a = 0; $a < scalar @solution; $a++)
    {
        for(my $b = 0; $b < scalar @leftovers; $b++)
        {    
            my $hold_previous = $solution[$a];
            $solution[$a] = $leftovers[$b];
            if($max_weight > totalweight(@solution))
            {
                if(totalscore(@solution)>=$current_best)
                {
                    
                    $leftovers[$b] = $hold_previous;
                }
            }
            else
            {
                $solution[$a] = $hold_previous;
            }
        }
        #print "Main loop";
    }
    
}

[download]

In reply to Exchange Heuristic and Swapping Code by nat47

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.